32 lines
787 B
Plaintext
32 lines
787 B
Plaintext
From 4d15874820bbf2369ff0790c6774b3ca12de0c7e Mon Sep 17 00:00:00 2001
|
|
From: =?UTF-8?q?Zolt=C3=A1n=20Mizsei?= <zmizsei@extrowerk.com>
|
|
Date: Thu, 22 Mar 2018 21:01:34 +0100
|
|
Subject: Build fix
|
|
|
|
|
|
diff --git a/libguile/posix.c b/libguile/posix.c
|
|
index 041b8b1..b372327 100644
|
|
--- a/libguile/posix.c
|
|
+++ b/libguile/posix.c
|
|
@@ -424,11 +424,13 @@ SCM_DEFINE (scm_getgrgid, "getgr", 0, 1, 0,
|
|
return SCM_BOOL_F;
|
|
}
|
|
}
|
|
- else if (scm_is_integer (name))
|
|
- SCM_SYSCALL (entry = getgrgid (scm_to_int (name)));
|
|
- else
|
|
+ else if (scm_is_integer (name)) {
|
|
+ SCM_SYSCALL (entry = getgrgid (scm_to_int (name)));
|
|
+ }
|
|
+ else {
|
|
STRING_SYSCALL (name, c_name,
|
|
- entry = getgrnam (c_name));
|
|
+ entry = getgrnam (c_name));
|
|
+ }
|
|
if (!entry)
|
|
SCM_SYSERROR;
|
|
|
|
--
|
|
2.16.2
|
|
|