From 665928fed1f6b0fedd38fb4b4adc73bc4d833f3a Mon Sep 17 00:00:00 2001 From: mainzelm Date: Thu, 24 Jan 2002 08:14:42 +0000 Subject: [PATCH] Return 0 exit status for -c and -e. --- scsh/top.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scsh/top.scm b/scsh/top.scm index 54c4932..f4af4dd 100644 --- a/scsh/top.scm +++ b/scsh/top.scm @@ -356,13 +356,13 @@ (let ((result (eval (read-exactly-one-sexp-from-string term-val) (interaction-environment)))) (call-exit-hooks) - (scheme-exit-now result))) + (scheme-exit-now 0))) (top-entry ; There was a -e . (let ((result ((eval top-entry (interaction-environment)) (command-line)))) (call-exit-hooks) - (scheme-exit-now result))) + (scheme-exit-now 0))) ;; Otherwise, the script executed as it loaded, ;; so we're done.