Fix contract for tc/send

This commit is contained in:
Asumu Takikawa 2015-01-14 00:21:09 -05:00
parent 2c0d4b8aec
commit e922807837

View File

@ -29,7 +29,12 @@
([cond-contracted tc-literal (->* (syntax?) ((or/c Type/c #f)) Type/c)]))
(define-signature tc-send^
([cond-contracted tc/send ((syntax? syntax? syntax? syntax?) ((or/c tc-results/c #f)) . ->* . full-tc-results/c)]))
([cond-contracted tc/send ((syntax? syntax?
identifier? syntax?
identifier? 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)]))