summaryrefslogtreecommitdiff
path: root/libguile/posix.c
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2013-07-16 01:33:27 -0400
committerMark H Weaver <mhw@netris.org>2013-07-16 01:33:27 -0400
commit28d5d2537c0321643c3b511a2195cd491204e7f2 (patch)
tree16b46ded431848672722595b87024fb7ffc48142 /libguile/posix.c
parent178a40928ab5221f6ce57c5af1067abe30a342b3 (diff)
parent95ed221785f5b1203e998823455f682c1830498b (diff)
downloadguile-28d5d2537c0321643c3b511a2195cd491204e7f2.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
Conflicts: libguile/keywords.c libguile/vm.c
Diffstat (limited to 'libguile/posix.c')
-rw-r--r--libguile/posix.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/posix.c b/libguile/posix.c
index 822599d9e..0443f95ea 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -910,7 +910,7 @@ SCM_DEFINE (scm_seteuid, "seteuid", 1, 0, 0,
#ifdef HAVE_SETEGID
-SCM_DEFINE (scm_setegid, "setegid", 1, 0, 0,
+SCM_DEFINE (scm_setegid, "setegid", 1, 0, 0,
(SCM id),
"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"
@@ -921,7 +921,7 @@ SCM_DEFINE (scm_setegid, "setegid", 1, 0, 0,
{
int rv;
-#ifdef HAVE_SETEUID
+#ifdef HAVE_SETEGID
rv = setegid (scm_to_int (id));
#else
rv = setgid (scm_to_int (id));