Fix typo detected by optimizer.

original commit: 4c0d605c430593562b1b29ff7c7617573220aab2
2012-08-20 13:17:50 -04:00 · 2012-08-20 13:17:50 -04:00 · 2117167e8b
commit 2117167e8b
parent 7f2c626c7f
1 changed files with 1 additions and 1 deletions
--- 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