From ded8858f55d19cd0bb8f3d937839c9fca9dff063 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Tue, 10 Jun 2014 11:31:02 -0400 Subject: [PATCH] Fix error case for merge-tc-results --- .../typed-racket/typecheck/tc-metafunctions.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git 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 index 60e028b055..1a3252b1b0 100644 --- 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)))