1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
| | Guix-Upstream: https://lists.gnu.org/archive/html/guile-devel/2021-11/msg00005.html
From: Maxime Devos <maximedevos@telenet.be>
Subject: [PATCH v2 07/14] Define AT_REMOVEDIR and others when available.
Date: Tue, 16 Nov 2021 11:06:30 +0000
Message-Id: <20211116110637.125579-8-maximedevos@telenet.be>
In-Reply-To: <20211116110637.125579-1-maximedevos@telenet.be>
References: <175c3a6572e832d84927937b309a3095cadf5702.camel@telenet.be>
<20211116110637.125579-1-maximedevos@telenet.be>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
* 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
|