+ Exit with status 0 if an error occurs during exiting.

+ Minor cleanup
2004-03-09 09:20:00 +00:00 · 2004-03-09 09:20:00 +00:00 · bcbd16ff0a
parent 69248ecad2
commit bcbd16ff0a
1 changed files with 2 additions and 3 deletions
--- 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