[Guile-commits] 07/14: Define AT_REMOVEDIR and others when available.

[Ludovic Courtès]

civodul pushed a commit to branch main
in repository guile.

commit 24028e75ca6c184051ee9543ceefeefe628c025b
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Nov 16 11:06:30 2021 +0000

    Define AT_REMOVEDIR and others when available.
    
    * libguile/posix.c (scm_init_posix): Define (in Scheme)
      AT_REMOVEDIR and AT_EACCESS when defined (in C).
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 libguile/posix.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/libguile/posix.c b/libguile/posix.c
index 879aeb7e7..b5352c2c4 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -2528,6 +2528,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"