the debugger now propagates nonserious conditions upwards instead of

trapping on them.
This commit is contained in:
Abdulaziz Ghuloum 2009-06-26 11:33:32 +03:00
parent 1803f9f23c
commit 30ac7870de
2 changed files with 28 additions and 24 deletions

View File

@ -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))
) )

View File

@ -1 +1 @@
1810 1811