# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 777680929 0
# Node ID ccd3c3ca2aef0db56dd00644042f4df9fded4d0a
# Parent  099f80df77bf30897f703c5bab37396c441f6f42
(O_RDONLY): Defined.
(openp): Use it.

diff -r 099f80df77bf -r ccd3c3ca2aef src/lread.c
--- a/src/lread.c	Tue Aug 23 21:35:23 1994 +0000
+++ b/src/lread.c	Tue Aug 23 22:28:49 1994 +0000
@@ -60,6 +60,10 @@
 #include <math.h>
 #endif /* LISP_FLOAT_TYPE */
 
+#ifndef O_RDONLY
+#define O_RDONLY 0
+#endif
+
 extern int errno;
 
 Lisp_Object Qread_char, Qget_file_char, Qstandard_input, Qcurrent_load_list;
@@ -577,7 +581,7 @@
 	      if (exec_only)
 		fd = (access (fn, X_OK) == 0) ? 1 : -1;
 	      else
-		fd = open (fn, 0, 0);
+		fd = open (fn, O_RDONLY, 0);
 
 	      if (fd >= 0)
 		{