Use eq? on sequence numbers.

2011-04-18 20:54:17 -04:00 · 2011-04-18 20:54:17 -04:00 · 0f30f5d8de
commit 0f30f5d8de
parent 51083dbce6
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/types/filter-ops.rkt
+++ b/collects/typed-scheme/types/filter-ops.rkt
@ -146,7 +146,7 @@
    (case-lambda [() -top]
                 [(f) f]
                 [fs (make-AndFilter fs)]))
-  (let loop ([fs (remove-duplicates args equal? #:key Rep-seq)] [result null])
+  (let loop ([fs (remove-duplicates args eq? #:key Rep-seq)] [result null])
    (if (null? fs)
        (match result
          [(list) -top]