From 4080eacfb81efb6fe19f51d69f8848768b799a0c Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Thu, 16 Sep 2010 16:28:40 -0400 Subject: [PATCH] Fix the error when a chaperone contract does not return a valid value. --- collects/racket/contract/private/prop.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/contract/private/prop.rkt b/collects/racket/contract/private/prop.rkt index fd07407ca1..64a122b2cb 100644 --- a/collects/racket/contract/private/prop.rkt +++ b/collects/racket/contract/private/prop.rkt @@ -192,7 +192,7 @@ (λ (v) (let ([v* (p v)]) (unless (chaperone-of? v* v) - (error "expected a chaperone of ~v, got ~v" v v*)) + (error 'prop:chaperone-contract (format "expected a chaperone of ~v, got ~v" v v*))) v*))))))) (define build-chaperone-contract-property