mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* posix.c (scm_init_posix): Use numeric values, rather than CPP

Browse source 
symbols, when defining the scheme values R_OK, W_OK, X_OK, and F_OK.
The symbols aren't available on some systems, and I'm pretty sure
their values are fixed by common widespread practice.
* ioext.c (scm_init_ioext): Code here defined them too; remove it.
This commit is contained in:
Jim Blandy 1996-08-08 08:28:21 +00:00
parent dd447b634b
commit 94f1e09898
2 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ioext.c
View file

@ -423,12 +423,6 @@ scm_init_ioext ()
scm_sysintern ("SEEK_CUR", SCM_MAKINUM (SEEK_CUR));
scm_sysintern ("SEEK_END", SCM_MAKINUM (SEEK_END));
/* access() symbols. */
scm_sysintern ("R_OK", SCM_MAKINUM (R_OK));
scm_sysintern ("W_OK", SCM_MAKINUM (W_OK));
scm_sysintern ("X_OK", SCM_MAKINUM (X_OK));
scm_sysintern ("F_OK", SCM_MAKINUM (F_OK));
/* File type/permission bits. */
#ifdef S_IRUSR
scm_sysintern ("S_IRUSR", SCM_MAKINUM (S_IRUSR));