From 424e896da5e0133a214f863359e6956e85f2dd0d Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 7 Nov 2014 15:11:05 -0500 Subject: [PATCH] Fix comment. --- .../typed-racket-lib/typed-racket/typecheck/tc-expr-unit.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-expr-unit.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-expr-unit.rkt index 749d5b927e..ae58bec65c 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-expr-unit.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-expr-unit.rkt @@ -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])