fixed error reporting code to see string

2014-06-09 16:48:54 -04:00 · 2014-06-09 16:48:54 -04:00 · a8d799325f
commit a8d799325f
parent 40e972d87e
1 changed files with 1 additions and 1 deletions
--- a/pkgs/plai/datatype.rkt
+++ b/pkgs/plai/datatype.rkt
@ -397,7 +397,7 @@
       #`(let ([expr test-expr])
           (if (not (#,type? expr))
             #,(syntax/loc #'test-expr
-                 (error 'type-case "expected a value from type ~a, got: ~a"
+                 (error 'type-case "expected a value from type ~a, got: ~e"
                        'type-id
                        expr))
             (cond