Fixup rec-lambda contract
original commit: ac1d7ea19ea2dada94b15d86352fd2e814ee8e5d
This commit is contained in:
parent
bc979afe28
commit
a2741ff57b
|
@ -34,7 +34,8 @@
|
|||
(define-signature tc-lambda^
|
||||
([cond-contracted tc/lambda (syntax? syntax? syntax? . -> . tc-results/c)]
|
||||
[cond-contracted tc/lambda/check (syntax? syntax? syntax? tc-results/c . -> . tc-results/c)]
|
||||
[cond-contracted tc/rec-lambda/check (syntax? syntax? syntax? (listof Type/c) tc-results/c . -> . tc-results/c)]))
|
||||
[cond-contracted tc/rec-lambda/check (syntax? syntax? syntax? (listof Type/c) tc-results/c . -> .
|
||||
(values tc-results/c tc-results/c))]))
|
||||
|
||||
(define-signature tc-app^
|
||||
([cond-contracted tc/app (syntax? . -> . tc-results/c)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user