Simplify CATCH-FILE-ERRORS so that the error-handling procedure always

gets the condition as an argument.

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 78675c1c0a776c5a82835d3920fe61c8f0fd80ae..1090a4397d85c4b425e120a2a8c3a44ae98ec4c3 100644 (file)
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: filcom.scm,v 1.214 2001/05/07 18:36:50 cph Exp $
+;;; $Id: filcom.scm,v 1.215 2001/05/10 18:34:56 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -118,7 +118,7 @@ procedures are called."
                (let ((error?
                       (not
                        (catch-file-errors
-                        (lambda () #f)
+                        (lambda (condition) condition #f)
                         (lambda () (read-buffer buffer pathname #t))))))
                  (if error?
                      (do ((hooks
@@ -181,7 +181,7 @@ procedures are called."
          buffer))))
 \f
 (define (file-test-no-errors test . args)
-  (catch-file-errors (lambda () #f)
+  (catch-file-errors (lambda (condition) condition #f)
                     (lambda () (apply test args))))
 
 (define (file-newer-than-file? a b)
@@ -194,7 +194,7 @@ procedures are called."
 (define (load-find-file-initialization buffer pathname)
   (let ((pathname
         (catch-file-errors
-         (lambda () #f)
+         (lambda (condition) condition #f)
          (lambda () (os/find-file-initialization-filename pathname)))))
     (if pathname
        (let ((database
@@ -203,7 +203,7 @@ procedures are called."
                  (bind-condition-handler (list condition-type:error)
                      evaluation-error-handler
                    (lambda ()
-                     (catch-file-errors (lambda () #f)
+                     (catch-file-errors (lambda (condition) condition #f)
                        (lambda ()
                          (fluid-let ((load/suppress-loading-message? #t))
                            (load pathname