conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/ikarus.exceptions.ss
View File

@ -32,7 +32,8 @@
(display "Unhandled exception:\n" (console-error-port)) (display "Unhandled exception:\n" (console-error-port))
(print-condition x (console-error-port)) (print-condition x (console-error-port))
(when (serious-condition? x) (when (serious-condition? x)
(exit -1)))))) (exit -1)))
(lambda args (exit -1)))))
(define (with-exception-handler handler proc2) (define (with-exception-handler handler proc2)
(unless (procedure? handler) (unless (procedure? handler)

2
scheme/last-revision
View File

@ -1 +1 @@
1501 1502