Fix the error when a chaperone contract does not return a valid value.

2010-09-16 16:28:40 -04:00 · 2010-09-16 16:28:40 -04:00 · 4080eacfb8
commit 4080eacfb8
parent afcc7c818d
1 changed files with 1 additions and 1 deletions
--- 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