diff --git a/libguile/ioext.c b/libguile/ioext.c index a873eb3bc..274b547f2 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -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)); diff --git a/libguile/posix.c b/libguile/posix.c index beb9494a6..bebf523dc 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -1534,10 +1534,10 @@ scm_init_posix () scm_sysintern ("SIGPWR", SCM_MAKINUM (SIGPWR)); #endif /* 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)); + scm_sysintern ("R_OK", SCM_MAKINUM (4)); + scm_sysintern ("W_OK", SCM_MAKINUM (2)); + scm_sysintern ("X_OK", SCM_MAKINUM (1)); + scm_sysintern ("F_OK", SCM_MAKINUM (0)); #ifdef LC_COLLATE scm_sysintern ("LC_COLLATE", SCM_MAKINUM (LC_COLLATE));