From 1a5ab01e26077099a78f1b7081312291fd1bbaa8 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sat, 7 Jun 2008 08:32:00 -0700 Subject: [PATCH] The bottom-most exception handler now only exits. --- 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 2de2e1f..2bdf7cc 100644 --- a/scheme/ikarus.exceptions.ss +++ b/scheme/ikarus.exceptions.ss @@ -32,7 +32,8 @@ (display "Unhandled exception:\n" (console-error-port)) (print-condition x (console-error-port)) (when (serious-condition? x) - (exit -1)))))) + (exit -1))) + (lambda args (exit -1))))) (define (with-exception-handler handler proc2) (unless (procedure? handler) diff --git a/scheme/last-revision b/scheme/last-revision index 9f43b76..96764d9 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1501 +1502