Fixes bug 206847: default exception handler expected to return for

non-&serious conditions
2008-03-25 21:38:11 -04:00 · 2008-03-25 21:38:11 -04:00 · 398ff23992
parent c01f3049e4
commit 398ff23992
2 changed files with 3 additions and 2 deletions
--- a/scheme/ikarus.exceptions.ss
+++ b/scheme/ikarus.exceptions.ss
@ -31,7 +31,8 @@
        (lambda (x) 
          (display "Unhandled exception:\n" (console-error-port))
          (print-condition x (console-error-port))
-          (exit -1)))))
+          (when (serious-condition? x)
+            (exit -1))))))
  
  (define (with-exception-handler handler proc2)
    (unless (procedure? handler)
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1430
+1432