From bcbd16ff0a11b83f0be9fb0b329c1c266eb82238 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Tue, 9 Mar 2004 09:20:00 +0000 Subject: [PATCH] + Exit with status 0 if an error occurs during exiting. + Minor cleanup --- scsh/top.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/scsh/top.scm b/scsh/top.scm index 4ae6c7b..008d511 100644 --- a/scsh/top.scm +++ b/scsh/top.scm @@ -347,10 +347,9 @@ (more) (with-handler (lambda (c m) - (scheme-exit-now 1)) + (scheme-exit-now 0)) (lambda () - (call-exit-hooks-and-narrow (lambda () #t)) - (more))))) + (scsh-exit-now 0))))) (lambda () (with-scsh-initialized (not term-switch) context args