Fix comment.
original commit: 424e896da5e0133a214f863359e6956e85f2dd0d
This commit is contained in:
parent
0414e6e557
commit
1e6eb14bde
|
@ -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])
|
||||
|
|
Loading…
Reference in New Issue
Block a user