mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

(scm_init_filesys): Use scm_from_int rather than scm_from_long for

Browse source 
F_DUPFD, F_GETFD, F_SETFD, F_GETFL, F_SETFL, F_GETOWN, F_SETOWN, these
are all ints (per command arg to fcntl).  Likewise FD_CLOEXEC which is
an int arg to fcntl.
This commit is contained in:
Kevin Ryde 2007-01-15 21:52:52 +00:00
parent 43c6dfffaa
commit b98236412a
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/filesys.c
View file

@ -1718,28 +1718,28 @@ scm_init_filesys ()
#endif
#ifdef F_DUPFD
scm_c_define ("F_DUPFD", scm_from_long (F_DUPFD));
scm_c_define ("F_DUPFD", scm_from_int (F_DUPFD));
#endif
#ifdef F_GETFD
scm_c_define ("F_GETFD", scm_from_long (F_GETFD));
scm_c_define ("F_GETFD", scm_from_int (F_GETFD));
#endif
#ifdef F_SETFD
scm_c_define ("F_SETFD", scm_from_long (F_SETFD));
scm_c_define ("F_SETFD", scm_from_int (F_SETFD));
#endif
#ifdef F_GETFL
scm_c_define ("F_GETFL", scm_from_long (F_GETFL));
scm_c_define ("F_GETFL", scm_from_int (F_GETFL));
#endif
#ifdef F_SETFL
scm_c_define ("F_SETFL", scm_from_long (F_SETFL));
scm_c_define ("F_SETFL", scm_from_int (F_SETFL));
#endif
#ifdef F_GETOWN
scm_c_define ("F_GETOWN", scm_from_long (F_GETOWN));
scm_c_define ("F_GETOWN", scm_from_int (F_GETOWN));
#endif
#ifdef F_SETOWN
scm_c_define ("F_SETOWN", scm_from_long (F_SETOWN));
scm_c_define ("F_SETOWN", scm_from_int (F_SETOWN));
#endif
#ifdef FD_CLOEXEC
scm_c_define ("FD_CLOEXEC", scm_from_long (FD_CLOEXEC));
scm_c_define ("FD_CLOEXEC", scm_from_int (FD_CLOEXEC));
#endif
#include "libguile/filesys.x"