Fix overlap with sequences.

2012-02-20 15:09:14 -05:00 · 2012-02-20 15:09:14 -05:00 · 99f01f5260
commit 99f01f5260
parent c7234772a4
1 changed files with 3 additions and 0 deletions
--- a/collects/typed-racket/types/remove-intersect.rkt
+++ b/collects/typed-racket/types/remove-intersect.rkt
@ -60,6 +60,9 @@
         [(list (Pair: a b) (Pair: a* b*))
          (and (overlap a a*)
               (overlap b b*))]
+         ;; lots of things are sequences
+         [(list (Sequence: _) _) #t]
+         [(list _ (Sequence: _)) #t]
         [(or (list (Pair: _ _) _)
              (list _ (Pair: _ _)))
          #f]