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

fix trivial bug in subtract (#571)

Browse Source
This commit is contained in:
Andrew Kent 2017-07-01 17:46:36 +01:00 committed by GitHub
parent fa828df919
commit 9a6c1ba63d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
typed-racket-lib/typed-racket/types/subtract.rkt
View File

@ -40,7 +40,7 @@
(-refine (apply -unsafe-intersect (map (λ (t) (sub t obj)) ts))
raw-prop)]
[(? Mu?) (sub (unfold t) obj)]
[(Poly: vs b) (make-Poly vs (sub b) obj)]
[(Poly: vs b) (make-Poly vs (sub b))]
[_ t])))
(cond
[(subtype t result obj) t]

2
typed-racket-test/unit-tests/remove-intersect-tests.rkt
View File

@ -118,7 +118,7 @@
(-poly (a) (make-Listof a))]
[(Un -Symbol -Number) (-poly (a) -Number) -Symbol]
[(-pair -Number (-v a)) (-pair Univ Univ) (Un)]
))
[(-poly (a) (Un -False (-> (-v a) (-v a)))) -False (-poly (a) (-> (-v a) (-v a)))]))
(define tests
(test-suite "Subtract Intersect"