From 43c6dfffaab08f87fd42fef876baa250efe156f7 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Mon, 15 Jan 2007 21:49:44 +0000
Subject: [PATCH] (scm_init_filesys): Use scm_from_int rather than
 scm_from_long for O_RDONLY, O_WRONLY, O_RDWR, O_CREAT, O_EXCL, O_NOCTTY,
 O_TRUNC, O_APPEND, O_NONBLOCK, O_NDELAY, O_SYNC and O_LARGEFILE.  These are
 all int not long.

---
 libguile/filesys.c | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/libguile/filesys.c b/libguile/filesys.c
index 72b45e92a..e8e4b9803 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -1681,40 +1681,40 @@ scm_init_filesys ()
   scm_dot_string = scm_permanent_object (scm_from_locale_string ("."));
   
 #ifdef O_RDONLY
-  scm_c_define ("O_RDONLY", scm_from_long (O_RDONLY));
+  scm_c_define ("O_RDONLY", scm_from_int (O_RDONLY));
 #endif 	       
 #ifdef O_WRONLY
-  scm_c_define ("O_WRONLY", scm_from_long (O_WRONLY));
+  scm_c_define ("O_WRONLY", scm_from_int (O_WRONLY));
 #endif 	       
 #ifdef O_RDWR
-  scm_c_define ("O_RDWR", scm_from_long (O_RDWR));
+  scm_c_define ("O_RDWR", scm_from_int (O_RDWR));
 #endif 	       
 #ifdef O_CREAT
-  scm_c_define ("O_CREAT", scm_from_long (O_CREAT));
+  scm_c_define ("O_CREAT", scm_from_int (O_CREAT));
 #endif 	       
 #ifdef O_EXCL  
-  scm_c_define ("O_EXCL", scm_from_long (O_EXCL));
+  scm_c_define ("O_EXCL", scm_from_int (O_EXCL));
 #endif 	       
 #ifdef O_NOCTTY
-  scm_c_define ("O_NOCTTY", scm_from_long (O_NOCTTY));
+  scm_c_define ("O_NOCTTY", scm_from_int (O_NOCTTY));
 #endif 	       
 #ifdef O_TRUNC 
-  scm_c_define ("O_TRUNC", scm_from_long (O_TRUNC));
+  scm_c_define ("O_TRUNC", scm_from_int (O_TRUNC));
 #endif 	       
 #ifdef O_APPEND
-  scm_c_define ("O_APPEND", scm_from_long (O_APPEND));
+  scm_c_define ("O_APPEND", scm_from_int (O_APPEND));
 #endif 	       
 #ifdef O_NONBLOCK
-  scm_c_define ("O_NONBLOCK", scm_from_long (O_NONBLOCK));
+  scm_c_define ("O_NONBLOCK", scm_from_int (O_NONBLOCK));
 #endif 	       
 #ifdef O_NDELAY
-  scm_c_define ("O_NDELAY", scm_from_long (O_NDELAY));
+  scm_c_define ("O_NDELAY", scm_from_int (O_NDELAY));
 #endif 	       
 #ifdef O_SYNC  
-  scm_c_define ("O_SYNC", scm_from_long (O_SYNC));
+  scm_c_define ("O_SYNC", scm_from_int (O_SYNC));
 #endif 
 #ifdef O_LARGEFILE  
-  scm_c_define ("O_LARGEFILE", scm_from_long (O_LARGEFILE));
+  scm_c_define ("O_LARGEFILE", scm_from_int (O_LARGEFILE));
 #endif 
 
 #ifdef F_DUPFD