From 2117167e8bcf367382261809a8875c66e6a34bbd Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 20 Aug 2012 13:17:50 -0400 Subject: [PATCH] Fix typo detected by optimizer. original commit: 4c0d605c430593562b1b29ff7c7617573220aab2 --- collects/typed-racket/typecheck/tc-app/tc-app-hetero.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-racket/typecheck/tc-app/tc-app-hetero.rkt b/collects/typed-racket/typecheck/tc-app/tc-app-hetero.rkt index ca4d37cd..73fe4be1 100644 --- a/collects/typed-racket/typecheck/tc-app/tc-app-hetero.rkt +++ b/collects/typed-racket/typecheck/tc-app/tc-app-hetero.rkt @@ -89,7 +89,7 @@ name (match i-t [(tc-result1: t) t]))] [else (single-value val-e) - (index-error i-val i-bound i-e vec-t expected) name])) + (index-error i-val i-bound i-e vec-t expected name)])) (define (tc/app-hetero form expected) (syntax-parse form