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

[Ludovic Courtès]

civodul pushed a commit to branch wip-openat
in repository guile.

commit ab519b38ada4753bf6cc65295d83bd12dcde91dd
Author: Maxime Devos <maximede...@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 <l...@gnu.org>
---
 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"