+ Exit with status 1 in case of an error
+ Display the condition in the top-level scsh handler
This commit is contained in:
parent
622ef7a99f
commit
7b13b9bebb
|
@ -334,6 +334,7 @@
|
|||
(open command-processor
|
||||
command-levels ; with-new-session
|
||||
conditions
|
||||
display-conditions
|
||||
ensures-loaded
|
||||
environments
|
||||
error-package
|
||||
|
|
|
@ -347,9 +347,10 @@
|
|||
(more)
|
||||
(with-handler
|
||||
(lambda (c m)
|
||||
(scheme-exit-now 0))
|
||||
(scheme-exit-now 1))
|
||||
(lambda ()
|
||||
(scsh-exit-now 0)))))
|
||||
(display-condition cond (current-error-port))
|
||||
(scsh-exit-now 1)))))
|
||||
(lambda ()
|
||||
(with-scsh-initialized
|
||||
(not term-switch) context args
|
||||
|
|
Loading…
Reference in New Issue