From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 24 Jun 1993 21:58:42 +0000 (+0000)
Subject: define FILE_READABLE.
X-Git-Tag: 20090517-FFI~8281
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=267199b0d561929c18cd131a1baaa86dcfe84142;p=mit-scheme.git

define FILE_READABLE.
---

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 36d6f3963..8375ab9ca 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.79 1993/06/24 03:55:53 gjr Exp $
+$Id: boot.c,v 9.80 1993/06/24 21:58:42 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -107,6 +107,8 @@ DEFUN (usage, (error_string), CONST char * error_string)
 #define main_name main
 #endif
 
+#define FILE_READABLE(filename) ((access ((filename), 4)) >= 0)
+
 main_type
 DEFUN (main_name, (argc, argv),
        int argc AND CONST char ** argv)