fix unwrap for an uncaught non-&serious condition

svn: r10686
2008-07-09 01:24:32 +00:00 · 2008-07-09 01:24:32 +00:00 · 4df95e9da7
commit 4df95e9da7
parent 9af966f378
1 changed files with 4 additions and 4 deletions
--- a/collects/rnrs/exceptions-6.ss
+++ b/collects/rnrs/exceptions-6.ss
@ -95,11 +95,11 @@
                            ;; Not &serious, so try to "continue":
                            (begin
                              ((error-display-handler)
-                               (if (exn? exn)
-                                   (exn-message exn)
+                               (if (exn? base)
+                                   (exn-message base)
                                   (format "uncaught exception: ~s"
-                                           exn))
-                               exn)
+                                           base))
+                               base)
                              ;; If it's continuable, then continue
                              ;; by resuming the old continuation.
                              ;; (Otherwise, let the a handler-