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