From: Taylor R. Campbell <net/mumble/campbell>
Date: Mon, 22 Jan 2007 18:30:16 +0000 (+0000)
Subject: Use `OS_file_access', not `access', in `FILE_READABLE' macro.
X-Git-Tag: 20090517-FFI~750
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8ff3ec7ec97822043a09cf655c66516ee8107d98;p=mit-scheme.git

Use `OS_file_access', not `access', in `FILE_READABLE' macro.
---

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 2d8ea3a83..67366b8b8 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.123 2007/01/22 08:43:09 riastradh Exp $
+$Id: boot.c,v 9.124 2007/01/22 18:30:16 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -94,7 +94,7 @@ DECLARE_CRITICAL_SECTION ();
 #define main_name main
 #endif
 
-#define FILE_READABLE(filename) ((access ((filename), 4)) >= 0)
+#define FILE_READABLE(filename) (OS_file_access ((filename), 4))
 
 int
 DEFUN (main_name, (argc, argv),