From 398ff23992cc9bdfa9c0ecebaa19857a7709acf1 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 25 Mar 2008 21:38:11 -0400
Subject: [PATCH] Fixes bug 206847: default exception handler expected to
 return for non-&serious conditions

---
 scheme/ikarus.exceptions.ss | 3 ++-
 scheme/last-revision        | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/scheme/ikarus.exceptions.ss b/scheme/ikarus.exceptions.ss
index b8cc285..2de2e1f 100644
--- 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)
diff --git a/scheme/last-revision b/scheme/last-revision
index 4efaa29..19a5f54 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1430
+1432