svn: r5448
This commit is contained in:
Eli Barzilay 2007-01-24 09:53:42 +00:00
parent 4ace2dd971
commit 7c253a2dcf

View File

@ -338,7 +338,7 @@
(string->immutable-string
(format "while evaluating ~s:\n ~a" expr (cadr vals)))
(cddr vals)))
e))))
exn))))
(with-handlers ([exn? reraise]) (eval expr)))
(provide check:)