From 7b13b9bebb200b1e98ff7575724ca8236c27816d Mon Sep 17 00:00:00 2001 From: mainzelm Date: Thu, 11 Mar 2004 10:17:41 +0000 Subject: [PATCH] + Exit with status 1 in case of an error + Display the condition in the top-level scsh handler --- scsh/scsh-package.scm | 1 + scsh/top.scm | 5 +++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/scsh/scsh-package.scm b/scsh/scsh-package.scm index cf935f5..33c080b 100644 --- a/scsh/scsh-package.scm +++ b/scsh/scsh-package.scm @@ -334,6 +334,7 @@ (open command-processor command-levels ; with-new-session conditions + display-conditions ensures-loaded environments error-package diff --git a/scsh/top.scm b/scsh/top.scm index 008d511..8da44a4 100644 --- a/scsh/top.scm +++ b/scsh/top.scm @@ -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