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

In the top-level condition handler, exit only on errors and call 

the surrounding handler for all other conditions.
This commit is contained in:
mainzelm 2004-03-14 17:21:33 +00:00
parent 069f638d8f
commit a41eb3da04
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scsh/top.scm
View File

@ -343,14 +343,14 @@
(parse-scsh-args (cdr all-args)) (parse-scsh-args (cdr all-args))
(with-handler (with-handler
(lambda (cond more) (lambda (cond more)
(if (warning? cond) (if (error? cond)
(more)
(with-handler (with-handler
(lambda (c m) (lambda (c m)
(scheme-exit-now 1)) (scheme-exit-now 1))
(lambda () (lambda ()
(display-condition cond (current-error-port)) (display-condition cond (current-error-port))
(scsh-exit-now 1))))) (scsh-exit-now 1)))
(more)))
(lambda () (lambda ()
(with-scsh-initialized (with-scsh-initialized
(not term-switch) context args (not term-switch) context args