Fix broken internal error

original commit: e6503c5df67327dd3d607b8197e99e6b619ba4b3
2013-05-23 20:05:37 -04:00 · 2013-05-23 20:05:37 -04:00 · 60f3bcbc46
commit 60f3bcbc46
parent 222c57e023
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-racket/private/type-contract.rkt
+++ b/collects/typed-racket/private/type-contract.rkt
@ -254,7 +254,7 @@
             (match (map (f (not (= 1 (length arrs)))) arrs)
               [(list e) e]
               [l #`(case-> #,@l)])])]
-          [_ (int-err "not a function" f)]))
+          [_ (int-err "not a function ~a" f)]))

      ;; Helpers for contract requirements
      (define (set-impersonator!)