update-counts: Fix a really dumb bug in logical-equal? that

caused huge time blowup. svn: r4259
2006-09-06 16:50:50 +00:00 · 2006-09-06 16:50:50 +00:00 · b1bc4714d5
commit b1bc4714d5
parent 85cb2252f4
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/private/match/update-counts.scm
+++ b/collects/mzlib/private/match/update-counts.scm
@ -59,7 +59,7 @@
             lst)))
  
  (define (logical-equal? a b)
-    (or (equal? a b) #t
+    (or (equal? a b)
        (and 
         ;; error checking
         (list? a)