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

Fix #ifdefery for `setegid'.

Browse source 
* libguile/posix.c (scm_setegid): Change to #ifdef HAVE_SETEGID.
This commit is contained in:
Ludovic Courtès 2013-06-16 21:47:39 +02:00
parent 41f2f14bd9
commit b16bf64639
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/posix.c
View file

@ -910,7 +910,7 @@ SCM_DEFINE (scm_seteuid, "seteuid", 1, 0, 0,
#ifdef HAVE_SETEGID #ifdef HAVE_SETEGID
SCM_DEFINE (scm_setegid, "setegid", 1, 0, 0, SCM_DEFINE (scm_setegid, "setegid", 1, 0, 0,
(SCM id), (SCM id),
"Sets the effective group ID to the integer @var{id}, provided the process\n" "Sets the effective group ID to the integer @var{id}, provided the process\n"
"has appropriate privileges. If effective IDs are not supported, the\n" "has appropriate privileges. If effective IDs are not supported, the\n"
@ -921,7 +921,7 @@ SCM_DEFINE (scm_setegid, "setegid", 1, 0, 0,
{ {
int rv; int rv;
#ifdef HAVE_SETEUID #ifdef HAVE_SETEGID
rv = setegid (scm_to_int (id)); rv = setegid (scm_to_int (id));
#else #else
rv = setgid (scm_to_int (id)); rv = setgid (scm_to_int (id));