scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

+ Minor cleanup
This commit is contained in:
mainzelm 2004-03-09 09:20:00 +00:00
parent 69248ecad2
commit bcbd16ff0a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/top.scm
View File

@ -347,10 +347,9 @@
(more) (more)
(with-handler (with-handler
(lambda (c m) (lambda (c m)
(scheme-exit-now 1)) (scheme-exit-now 0))
(lambda () (lambda ()
(call-exit-hooks-and-narrow (lambda () #t)) (scsh-exit-now 0)))))
(more)))))
(lambda () (lambda ()
(with-scsh-initialized (with-scsh-initialized
(not term-switch) context args (not term-switch) context args