From a41eb3da0467bb34d456f20c4e4635adba85442d Mon Sep 17 00:00:00 2001 From: mainzelm Date: Sun, 14 Mar 2004 17:21:33 +0000 Subject: [PATCH] In the top-level condition handler, exit only on errors and call the surrounding handler for all other conditions. --- scsh/top.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/scsh/top.scm b/scsh/top.scm index 8da44a4..5fee133 100644 --- a/scsh/top.scm +++ b/scsh/top.scm @@ -343,14 +343,14 @@ (parse-scsh-args (cdr all-args)) (with-handler (lambda (cond more) - (if (warning? cond) - (more) - (with-handler - (lambda (c m) - (scheme-exit-now 1)) - (lambda () + (if (error? cond) + (with-handler + (lambda (c m) + (scheme-exit-now 1)) + (lambda () (display-condition cond (current-error-port)) - (scsh-exit-now 1))))) + (scsh-exit-now 1))) + (more))) (lambda () (with-scsh-initialized (not term-switch) context args