From 8e569511e84a6d5bdb81c1b8ce156976dac64aa7 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 10 Dec 2010 16:54:27 -0500 Subject: [PATCH] Fix double application of format. Closes PR 11524. original commit: f8c01299f971c65509877e22feaaa4f2ccb79227 --- collects/typed-scheme/types/utils.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/types/utils.rkt b/collects/typed-scheme/types/utils.rkt index 466ae18c..f81288a1 100644 --- a/collects/typed-scheme/types/utils.rkt +++ b/collects/typed-scheme/types/utils.rkt @@ -171,7 +171,7 @@ (define (fv/list ts) (hash-map (combine-frees (map free-vars* ts)) (lambda (k v) k))) (define (tc-error/expr msg #:return [return (make-Union null)] #:stx [stx (current-orig-stx)] . rest) - (tc-error/delayed #:stx stx (apply format msg rest)) + (apply tc-error/delayed #:stx stx msg rest) return) ;; error for unbound variables