From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 27 Nov 1994 23:05:09 +0000 (+0000)
Subject: Fix bug in previous change.
X-Git-Tag: 20090517-FFI~6939
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7e5732c87f86907f54a856a087538c1e2aacd4e5;p=mit-scheme.git

Fix bug in previous change.
---

diff --git a/v7/src/microcode/option.c b/v7/src/microcode/option.c
index 84bafd49f..23347a92c 100644
--- a/v7/src/microcode/option.c
+++ b/v7/src/microcode/option.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: option.c,v 1.38 1994/11/20 00:57:29 cph Exp $
+$Id: option.c,v 1.39 1994/11/27 23:05:09 cph Exp $
 
 Copyright (c) 1990-94 Massachusetts Institute of Technology
 
@@ -86,7 +86,7 @@ extern void EXFUN (termination_init_error, (void));
 #  define FILE_ABSOLUTE(filename) (((filename) [0]) == SUB_DIRECTORY_DELIMITER)
 #endif
 
-#define FILE_READABLE(filename) ((OS_file_access ((filename), 4)) >= 0)
+#define FILE_READABLE(filename) (OS_file_access ((filename), 4))
 
 static int option_summary;
 static int option_large_sizes;