From f2e681ec9562cd23f0cfaba7edd3702aafb673b6 Mon Sep 17 00:00:00 2001 From: Maxime Devos Date: Thu, 11 Mar 2021 21:01:45 +0100 Subject: [PATCH 07/17] Define AT_REMOVEDIR and others when available. * libguile/posix.c (scm_init_posix): Define (in Scheme) AT_REMOVEDIR, AT_FDCWD and AT_EACCESS when defined (in C). --- libguile/posix.c | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/libguile/posix.c b/libguile/posix.c index 351ce8c0c..2ee459d2d 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -1,4 +1,4 @@ -/* Copyright 1995-2014,2016-2019 +/* Copyright 1995-2014,2016-2019,2021 Free Software Foundation, Inc. This file is part of Guile. @@ -2482,6 +2482,15 @@ 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_FDCWD + scm_c_define ("AT_FDCWD", scm_from_int (AT_FDCWD)); +#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