From 60f3bcbc46637f64a385b7d35c5b23bf3da1cab8 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Thu, 23 May 2013 20:05:37 -0400 Subject: [PATCH] Fix broken internal error original commit: e6503c5df67327dd3d607b8197e99e6b619ba4b3 --- collects/typed-racket/private/type-contract.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-racket/private/type-contract.rkt b/collects/typed-racket/private/type-contract.rkt index b5ab0f7b..eadd2a0c 100644 --- 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!)