In the top-level condition handler, exit only on errors and call

the surrounding handler for all other conditions.
This commit is contained in:
mainzelm 2004-03-14 17:21:33 +00:00
parent 069f638d8f
commit a41eb3da04
1 changed files with 7 additions and 7 deletions

View File

@ -343,14 +343,14 @@
(parse-scsh-args (cdr all-args))
(with-handler
(lambda (cond more)
(if (warning? cond)
(more)
(with-handler
(lambda (c m)
(scheme-exit-now 1))
(lambda ()
(if (error? cond)
(with-handler
(lambda (c m)
(scheme-exit-now 1))
(lambda ()
(display-condition cond (current-error-port))
(scsh-exit-now 1)))))
(scsh-exit-now 1)))
(more)))
(lambda ()
(with-scsh-initialized
(not term-switch) context args