suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix comment.

Browse Source
This commit is contained in:
Vincent St-Amour 2014-11-07 15:11:05 -05:00
parent 547d52fe27
commit 424e896da5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-expr-unit.rkt
View File

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