Fix comment.

original commit: 424e896da5e0133a214f863359e6956e85f2dd0d
This commit is contained in:
Vincent St-Amour 2014-11-07 15:11:05 -05:00
parent 0414e6e557
commit 1e6eb14bde

View File

@ -102,7 +102,7 @@
t))]
[else (tc-error/expr #:stx stx (syntax-e msg))]))
;; tc-expr/check : syntax maybe[tc-results] -> tc-results
;; tc-expr/check/internal : syntax maybe[tc-results] -> tc-results
(define/cond-contract (tc-expr/check/internal form expected)
(--> syntax? (-or/c tc-results/c #f) full-tc-results/c)
(parameterize ([current-orig-stx form])