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

fix unwrap for an uncaught non-&serious condition

Browse Source 
svn: r10686
This commit is contained in:
Matthew Flatt 2008-07-09 01:24:32 +00:00
parent 9af966f378
commit 4df95e9da7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/rnrs/exceptions-6.ss
View File

@ -95,11 +95,11 @@
;; Not &serious, so try to "continue": ;; Not &serious, so try to "continue":
(begin (begin
((error-display-handler) ((error-display-handler)
(if (exn? exn) (if (exn? base)
(exn-message exn) (exn-message base)
(format "uncaught exception: ~s" (format "uncaught exception: ~s"
exn)) base))
exn) base)
;; If it's continuable, then continue ;; If it's continuable, then continue
;; by resuming the old continuation. ;; by resuming the old continuation.
;; (Otherwise, let the a handler- ;; (Otherwise, let the a handler-