The bottom-most exception handler now only exits.

This commit is contained in:
Abdulaziz Ghuloum 2008-06-07 08:32:00 -07:00
parent 9438328f55
commit 1a5ab01e26
2 changed files with 3 additions and 2 deletions

View File

@ -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)

View File

@ -1 +1 @@
1501
1502