From 2881cffdc253be96a7d8f78ff98192db0c57324b Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 3 Nov 2015 18:27:20 -0600 Subject: [PATCH] Simplify unsafe op usage. --- typed-racket-lib/typed-racket/types/current-seen.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/typed-racket-lib/typed-racket/types/current-seen.rkt b/typed-racket-lib/typed-racket/types/current-seen.rkt index ed92b27c..0b671243 100644 --- a/typed-racket-lib/typed-racket/types/current-seen.rkt +++ b/typed-racket-lib/typed-racket/types/current-seen.rkt @@ -24,5 +24,5 @@ A)) (define (seen? ss st cs) (for/or ([i (in-list cs)]) - (and (pair? i) (eq? ss (unsafe-car i)) (eq? st (unsafe-cdr i))))) + (and (eq? ss (car i)) (eq? st (unsafe-cdr i)))))