From 13b93f380a1c5843d315004a597f87617bc08a20 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. original commit: 0f30f5d8de67bb80f4873a25228afbd7069d2ad1 --- 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 3f7832bf..7621c2a7 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]