Fix error case for merge-tc-results

2014-06-10 11:31:02 -04:00 · 2014-06-10 11:31:02 -04:00 · ded8858f55
commit ded8858f55
parent a8d799325f
1 changed files with 1 additions and 1 deletions
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-metafunctions.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-metafunctions.rkt
@ -284,7 +284,7 @@
       ;; otherwise, error
       [else
        (tc-error/expr "Expected the same number of values, but got ~a and ~a"
-                         (length res1) (length res2))])])
+                         (length results1) (length results2))])])

  (for/fold ([res (ret -Bottom)]) ([res2 (in-list results)])
    (merge-two-results res res2)))