From 0f30f5d8de67bb80f4873a25228afbd7069d2ad1 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 18 Apr 2011 20:54:17 -0400 Subject: [PATCH] Use eq? on sequence numbers. --- collects/typed-scheme/types/filter-ops.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/types/filter-ops.rkt b/collects/typed-scheme/types/filter-ops.rkt index 3f7832bf0e..7621c2a7b1 100644 --- 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]