suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use eq? on sequence numbers.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2011-04-18 20:54:17 -04:00
parent 51083dbce6
commit 0f30f5d8de
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/types/filter-ops.rkt
View File

@ -146,7 +146,7 @@
(case-lambda [() -top] (case-lambda [() -top]
[(f) f] [(f) f]
[fs (make-AndFilter fs)])) [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) (if (null? fs)
(match result (match result
[(list) -top] [(list) -top]