Fix contract syntax in unit signature.

original commit: c324854e0eaf7db1b1ee32bfbb553b6f0dfef32d
This commit is contained in:
Sam Tobin-Hochstadt 2014-05-06 16:23:39 -04:00
parent c42a196f58
commit 35f1ffa7df

View File

@ -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)]