fix broken contract error message

2011-10-04 08:19:33 -05:00 · 2011-10-04 08:19:33 -05:00 · 63593285fe
commit 63593285fe
parent 25413a4c05
1 changed files with 1 additions and 1 deletions
--- a/collects/racket/contract/private/misc.rkt
+++ b/collects/racket/contract/private/misc.rkt
@ -326,7 +326,7 @@
                 (raise-blame-error
                  blame
                  val
-                  "expected: ~s, given ~a, which isn't ~s"
+                  "expected: ~s, given ~e, which isn't ~s"
                  (contract-name ctc)
                  val
                  (contract-name (car ctcs))))])))))