In the top-level condition handler, exit only on errors and call
the surrounding handler for all other conditions.
This commit is contained in:
parent
069f638d8f
commit
a41eb3da04
14
scsh/top.scm
14
scsh/top.scm
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue