mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Define AT_REMOVEDIR and others when available.

Browse source 
* 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>
This commit is contained in:
Maxime Devos 2021-11-16 11:06:30 +00:00 • committed by Ludovic Courtès
parent f018e0d486
commit 24028e75ca
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/posix.c
View file

@ -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"