suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed error reporting code to see string

Browse Source
This commit is contained in:
Matthias Felleisen 2014-06-09 16:48:54 -04:00
parent 40e972d87e
commit a8d799325f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/plai/datatype.rkt
View File

@ -397,7 +397,7 @@
#`(let ([expr test-expr]) #`(let ([expr test-expr])
(if (not (#,type? expr)) (if (not (#,type? expr))
#,(syntax/loc #'test-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 'type-id
expr)) expr))
(cond (cond