Merge from mvo-vcell-cleanup-1-branch.

[bpt/guile.git] / libguile / filesys.c

diff --git a/libguile/filesys.c b/libguile/filesys.c
index 81b7522..e48d377 100644 (file)
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -1440,62 +1440,62 @@ scm_init_filesys ()
   scm_dot_string = scm_permanent_object (scm_makfrom0str ("."));
   
 #ifdef O_RDONLY
-scm_sysintern ("O_RDONLY", scm_long2num (O_RDONLY));
+  scm_c_define ("O_RDONLY", scm_long2num (O_RDONLY));
 #endif                
 #ifdef O_WRONLY
-scm_sysintern ("O_WRONLY", scm_long2num (O_WRONLY));
+  scm_c_define ("O_WRONLY", scm_long2num (O_WRONLY));
 #endif                
 #ifdef O_RDWR
-scm_sysintern ("O_RDWR", scm_long2num (O_RDWR));
+  scm_c_define ("O_RDWR", scm_long2num (O_RDWR));
 #endif                
 #ifdef O_CREAT
-scm_sysintern ("O_CREAT", scm_long2num (O_CREAT));
+  scm_c_define ("O_CREAT", scm_long2num (O_CREAT));
 #endif                
 #ifdef O_EXCL  
-scm_sysintern ("O_EXCL", scm_long2num (O_EXCL));
+  scm_c_define ("O_EXCL", scm_long2num (O_EXCL));
 #endif                
 #ifdef O_NOCTTY
-scm_sysintern ("O_NOCTTY", scm_long2num (O_NOCTTY));
+  scm_c_define ("O_NOCTTY", scm_long2num (O_NOCTTY));
 #endif                
 #ifdef O_TRUNC 
-scm_sysintern ("O_TRUNC", scm_long2num (O_TRUNC));
+  scm_c_define ("O_TRUNC", scm_long2num (O_TRUNC));
 #endif                
 #ifdef O_APPEND
-scm_sysintern ("O_APPEND", scm_long2num (O_APPEND));
+  scm_c_define ("O_APPEND", scm_long2num (O_APPEND));
 #endif                
 #ifdef O_NONBLOCK
-scm_sysintern ("O_NONBLOCK", scm_long2num (O_NONBLOCK));
+  scm_c_define ("O_NONBLOCK", scm_long2num (O_NONBLOCK));
 #endif                
 #ifdef O_NDELAY
-scm_sysintern ("O_NDELAY", scm_long2num (O_NDELAY));
+  scm_c_define ("O_NDELAY", scm_long2num (O_NDELAY));
 #endif                
 #ifdef O_SYNC  
-scm_sysintern ("O_SYNC", scm_long2num (O_SYNC));
+  scm_c_define ("O_SYNC", scm_long2num (O_SYNC));
 #endif 
 
 #ifdef F_DUPFD  
-scm_sysintern ("F_DUPFD", scm_long2num (F_DUPFD));
+  scm_c_define ("F_DUPFD", scm_long2num (F_DUPFD));
 #endif 
 #ifdef F_GETFD  
-scm_sysintern ("F_GETFD", scm_long2num (F_GETFD));
+  scm_c_define ("F_GETFD", scm_long2num (F_GETFD));
 #endif 
 #ifdef F_SETFD  
-scm_sysintern ("F_SETFD", scm_long2num (F_SETFD));
+  scm_c_define ("F_SETFD", scm_long2num (F_SETFD));
 #endif 
 #ifdef F_GETFL  
-scm_sysintern ("F_GETFL", scm_long2num (F_GETFL));
+  scm_c_define ("F_GETFL", scm_long2num (F_GETFL));
 #endif 
 #ifdef F_SETFL  
-scm_sysintern ("F_SETFL", scm_long2num (F_SETFL));
+  scm_c_define ("F_SETFL", scm_long2num (F_SETFL));
 #endif 
 #ifdef F_GETOWN  
-scm_sysintern ("F_GETOWN", scm_long2num (F_GETOWN));
+  scm_c_define ("F_GETOWN", scm_long2num (F_GETOWN));
 #endif 
 #ifdef F_SETOWN  
-scm_sysintern ("F_SETOWN", scm_long2num (F_SETOWN));
+  scm_c_define ("F_SETOWN", scm_long2num (F_SETOWN));
 #endif 
 #ifdef FD_CLOEXEC  
-scm_sysintern ("FD_CLOEXEC", scm_long2num (FD_CLOEXEC));
+  scm_c_define ("FD_CLOEXEC", scm_long2num (FD_CLOEXEC));
 #endif
 
 #ifndef SCM_MAGIC_SNARFER