The bottom-most exception handler now only exits.
This commit is contained in:
parent
9438328f55
commit
1a5ab01e26
|
@ -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)
|
||||
|
|
|
@ -1 +1 @@
|
|||
1501
|
||||
1502
|
||||
|
|
Loading…
Reference in New Issue