the debugger now propagates nonserious conditions upwards instead of
trapping on them.
This commit is contained in:
parent
1803f9f23c
commit
30ac7870de
|
@ -249,6 +249,7 @@
|
|||
(define (guarded-start proc)
|
||||
(with-exception-handler
|
||||
(lambda (con)
|
||||
(define (enter-debugger con)
|
||||
(define (help)
|
||||
(printf "Exception trapped by debugger.\n")
|
||||
(print-condition con)
|
||||
|
@ -272,6 +273,9 @@
|
|||
[(?) (help)]
|
||||
[else (printf "invalid option\n")])))
|
||||
void))))
|
||||
(if (serious-condition? con)
|
||||
(enter-debugger con)
|
||||
(raise-continuable con)))
|
||||
proc))
|
||||
|
||||
)
|
||||
|
|
|
@ -1 +1 @@
|
|||
1810
|
||||
1811
|
||||
|
|
Loading…
Reference in New Issue