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

Fixes bug 206847: default exception handler expected to return for 

non-&serious conditions
This commit is contained in:
Abdulaziz Ghuloum 2008-03-25 21:38:11 -04:00
parent c01f3049e4
commit 398ff23992
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

@ -31,7 +31,8 @@
(lambda (x) (lambda (x)
(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))
(exit -1))))) (when (serious-condition? x)
(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 @@
1430 1432