From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 22 Oct 1997 01:21:11 +0000 (+0000)
Subject: Change test used to decide whether an unreadable file exists.  The
X-Git-Tag: 20090517-FFI~4989
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b1762000990ffaa9c43cbf8d1b70039668d9b042;p=mit-scheme.git

Change test used to decide whether an unreadable file exists.  The
procedure FILE-EXISTS? gives the wrong answer when the file is a
symbolic link that points to a non-existent file.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 0f633a8a9..22d197073 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: filcom.scm,v 1.192 1997/08/23 05:20:15 cph Exp $
+;;;	$Id: filcom.scm,v 1.193 1997/10/22 01:21:11 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
 ;;;
@@ -169,7 +169,9 @@ invocation."
 	       (message "File is write protected"))
 	      (else
 	       (serious-message
-		(if (file-test-no-errors file-exists? pathname)
+		(if (file-test-no-errors
+		     (lambda (pathname) (file-access pathname 0))
+		     pathname)
 		    "File exists, but is read-protected."
 		    (string-append
 		     "File not found and directory "