Removed debug info.

2012-07-05 20:02:40 +02:00 · 2012-07-05 20:02:40 +02:00 · fb423d689d
commit fb423d689d
parent 0538280d65
1 changed files with 1 additions and 1 deletions
--- a/bracket/bracket.rkt
+++ b/bracket/bracket.rkt
@ -861,7 +861,6 @@
    (concurrent-substitute u ts rs))
  
  (define (Equal u1 u2)
-    (displayln (list 'Equal u1 u2))
    (cond
      [(and (number? u1) (number? u2))
       (= u1 u2)]
@ -869,6 +868,7 @@
       (string=? u1 u2)]
      [(equal? u1 u2)
       true]
+      ; TODO: Reactivate this clause when bug in Expand is found.
      #;[(equal? (Expand (Minus u1 u2)) 0)
         true]
      [else (construct 'Equal (list u1 u2))]))