From b1bc4714d5bcf115a1fdf92c671f1ebe31d4e389 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 6 Sep 2006 16:50:50 +0000 Subject: [PATCH] update-counts: Fix a really dumb bug in logical-equal? that caused huge time blowup. svn: r4259 --- collects/mzlib/private/match/update-counts.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/match/update-counts.scm b/collects/mzlib/private/match/update-counts.scm index ce1b72fb26..f5b2a5adf2 100644 --- 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)