Fix typo detected by optimizer.

2012-08-20 13:17:50 -04:00 · 2012-08-20 13:17:50 -04:00 · 4c0d605c43
commit 4c0d605c43
parent b9408e545e
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