+ Exit with status 1 in case of an error

+ Display the condition in the top-level scsh handler
This commit is contained in:
mainzelm 2004-03-11 10:17:41 +00:00
parent 622ef7a99f
commit 7b13b9bebb
2 changed files with 4 additions and 2 deletions

View File

@ -334,6 +334,7 @@
(open command-processor
command-levels ; with-new-session
conditions
display-conditions
ensures-loaded
environments
error-package

View File

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