suzanne.soy/scribble-math
1
0
Fork 0
Code Issues 8 Pull Requests 3 Actions Packages Projects Releases Wiki Activity

Equal now returns true for two equal? values.

Browse Source
This commit is contained in:
Jens Axel Søgaard 2012-07-05 00:06:19 +02:00
parent 8638dc1b75
commit 034cd321f6
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bracket/bracket.rkt
View File

@ -861,15 +861,14 @@
(concurrent-substitute u ts rs)) (concurrent-substitute u ts rs))
(define (Equal u1 u2) (define (Equal u1 u2)
(define out
(cond (cond
[(and (number? u1) (number? u2)) [(and (number? u1) (number? u2))
(= u1 u2)] (= u1 u2)]
[(and (string? u1) (string? u2)) [(and (string? u1) (string? u2))
(string=? u1 u2)] (string=? u1 u2)]
[(equal? u1 u2)
true]
[else (construct 'Equal (list u1 u2))])) [else (construct 'Equal (list u1 u2))]))
(displayln (list 'Equal u1 u1 '=> out))
out)
(define (Expand u) (define (Expand u)
; [Cohen, Elem, p.253] ; [Cohen, Elem, p.253]