Simplify unsafe op usage.

2015-11-03 18:27:20 -06:00 · 2015-11-03 18:27:20 -06:00 · 2881cffdc2
commit 2881cffdc2
parent e4edf7a9ee
1 changed files with 1 additions and 1 deletions
--- 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)))))