guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Ludovic Courtès
Subject: [Guile-commits] 07/14: Define AT_REMOVEDIR and others when available.
Date: Thu, 16 Jun 2022 04:50:49 -0400 (EDT)

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

commit ab519b38ada4753bf6cc65295d83bd12dcde91dd
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 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"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]