From 034cd321f6d6159b2d19a7d1cf1a5b88d499b1dd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= Date: Thu, 5 Jul 2012 00:06:19 +0200 Subject: [PATCH] Equal now returns true for two equal? values. --- bracket/bracket.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/bracket/bracket.rkt b/bracket/bracket.rkt index 7872864fc..f99542c5d 100644 --- a/bracket/bracket.rkt +++ b/bracket/bracket.rkt @@ -861,15 +861,14 @@ (concurrent-substitute u ts rs)) (define (Equal u1 u2) - (define out (cond [(and (number? u1) (number? u2)) (= u1 u2)] [(and (string? u1) (string? u2)) (string=? u1 u2)] + [(equal? u1 u2) + true] [else (construct 'Equal (list u1 u2))])) - (displayln (list 'Equal u1 u1 '=> out)) - out) (define (Expand u) ; [Cohen, Elem, p.253]