suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix an unfortunate bug in Union construction.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2013-11-25 12:59:50 -05:00
parent ad8d0629f8
commit beefe73f7e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/union.rkt
View File

@ -34,7 +34,7 @@
(cons a b)] (cons a b)]
[((? (λ _ (subtype a b*))) _) b] [((? (λ _ (subtype a b*))) _) b]
[((? (λ _ (subtype b* a))) _) (list a)] [((? (λ _ (subtype b* a))) _) (list a)]
[(_ _) (cons a b)])) [(_ _) (cons a (filter-not (λ (b-elem) (subtype b-elem a)) b))]))
;; Type -> List[Type] ;; Type -> List[Type]
(define (flat t) (define (flat t)