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

Fix static contract generation for method case->s

Browse Source
This commit is contained in:
Asumu Takikawa 2014-02-21 14:38:45 -05:00
parent 19b785956f
commit 6710d08ff1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/private/type-contract.rkt
View File

@ -405,7 +405,9 @@
(fail #:reason (~a "cannot generate contract for case function type"
" with optional keyword arguments")))
(if case->
(arr/sc (map t->sc/neg dom) (and rst (t->sc/neg rst)) (map t->sc rngs))
(arr/sc (process-dom (map t->sc/neg dom))
(and rst (t->sc/neg rst))
(map t->sc rngs))
(function/sc
(process-dom (map t->sc/neg dom))
null