From e25d827eb0e1027b902c502ea791982e74a75fd2 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 21 Mar 2013 21:43:30 -0400 Subject: [PATCH] Show the offending value when a TR-introduced Any contract fails original commit: c5df74f662bf5eb733211a33db256f91bb11dfaa --- collects/typed-racket/utils/any-wrap.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-racket/utils/any-wrap.rkt b/collects/typed-racket/utils/any-wrap.rkt index 62161368..ffbb5bfb 100644 --- a/collects/typed-racket/utils/any-wrap.rkt +++ b/collects/typed-racket/utils/any-wrap.rkt @@ -9,7 +9,7 @@ (define (fail v) (raise-blame-error (blame-swap b) v - "Attempted to use a higher-order value passed as `Any` in untyped code")) + "Attempted to use a higher-order value passed as `Any` in untyped code: ~v" v)) (define (t v) (define (wrap-struct s)