Fix contract syntax in unit signature.
original commit: c324854e0eaf7db1b1ee32bfbb553b6f0dfef32d
This commit is contained in:
parent
c42a196f58
commit
35f1ffa7df
|
@ -32,7 +32,7 @@
|
|||
([cond-contracted tc/send ((syntax? syntax? syntax? syntax?) ((or/c tc-results/c #f)) . ->* . full-tc-results/c)]))
|
||||
|
||||
(define-signature tc-expression^
|
||||
([cond-contracted tc/#%expression (syntax? (or/c tc-results/c #f) . ->* . full-tc-results/c)]))
|
||||
([cond-contracted tc/#%expression ((syntax?) ((or/c tc-results/c #f)) . ->* . full-tc-results/c)]))
|
||||
|
||||
(define-signature tc-lambda^
|
||||
([cond-contracted tc/lambda (syntax? syntax? syntax? . -> . full-tc-results/c)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user