From a8d799325ff34a1adf79160564a28ad050cdd0b0 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Mon, 9 Jun 2014 16:48:54 -0400 Subject: [PATCH] fixed error reporting code to see string --- pkgs/plai/datatype.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/plai/datatype.rkt b/pkgs/plai/datatype.rkt index 303a82829f..42158aff5d 100644 --- 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