From fb423d689d7b274d2c589797407cee5bb200b881 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= <jensaxel@soegaard.net>
Date: Thu, 5 Jul 2012 20:02:40 +0200
Subject: [PATCH] Removed debug info.

---
 bracket/bracket.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bracket/bracket.rkt b/bracket/bracket.rkt
index f08215f0a..0565d481c 100644
--- 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))]))