Fix double application of format.

Closes PR 11524.
2010-12-10 16:54:27 -05:00 · 2010-12-10 16:54:27 -05:00 · f8c01299f9
commit f8c01299f9
parent 948dfe9cf0
1 changed files with 1 additions and 1 deletions
--- 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