* libguile/posix.c (scm_init_posix): Define (in Scheme) AT_REMOVEDIR and AT_EACCESS when defined (in C). --- libguile/posix.c | 6 ++++++ 1 file changed, 6 insertions(+)
diff --git a/libguile/posix.c b/libguile/posix.c index bd7f40ca8..a6f7c9a0d 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -2503,6 +2503,12 @@ scm_init_posix () #ifdef AT_EMPTY_PATH scm_c_define ("AT_EMPTY_PATH", scm_from_int (AT_EMPTY_PATH)); #endif +#ifdef AT_REMOVEDIR + scm_c_define ("AT_REMOVEDIR", scm_from_int (AT_REMOVEDIR)); +#endif +#ifdef AT_EACCESS + scm_c_define ("AT_EACCESS", scm_from_int (AT_EACCESS)); +#endif #include "cpp-SIG.c" #include "posix.x" -- 2.30.2