From 11f7d8b452363fa8d67653f2a4dc4ef575257f00 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 (cherry picked from 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 b5ab0f7b8e..eadd2a0c60 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!)