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)
|
(define (guarded-start proc)
|
||||||
(with-exception-handler
|
(with-exception-handler
|
||||||
(lambda (con)
|
(lambda (con)
|
||||||
|
(define (enter-debugger con)
|
||||||
(define (help)
|
(define (help)
|
||||||
(printf "Exception trapped by debugger.\n")
|
(printf "Exception trapped by debugger.\n")
|
||||||
(print-condition con)
|
(print-condition con)
|
||||||
|
@ -272,6 +273,9 @@
|
||||||
[(?) (help)]
|
[(?) (help)]
|
||||||
[else (printf "invalid option\n")])))
|
[else (printf "invalid option\n")])))
|
||||||
void))))
|
void))))
|
||||||
|
(if (serious-condition? con)
|
||||||
|
(enter-debugger con)
|
||||||
|
(raise-continuable con)))
|
||||||
proc))
|
proc))
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
1810
|
1811
|
||||||
|
|
Loading…
Reference in New Issue