Fix broken internal error

2013-05-23 20:05:37 -04:00 · 2013-05-23 20:05:37 -04:00 · e6503c5df6
commit e6503c5df6
parent 404a314887
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!)