Fix static contract generation for method case->s
original commit: 6710d08ff1dfe3283831773912f5f0a77dc01289
This commit is contained in:
parent
f0cff55467
commit
c4bfa96216
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user