me
/
guix
Archived
1
0
Fork 0

gnu: guile-static: Use Linux syscalls only on Linux-based systems.

* gnu/packages/patches/guile-linux-syscalls.patch: Use Linux
  syscalls only on Linux-based systems.
master
Manolis Ragkousis 2015-05-23 22:10:34 +03:00
parent f8badf151b
commit 30347caae7
1 changed files with 5 additions and 1 deletions

View File

@ -7,12 +7,13 @@ diff --git a/libguile/posix.c b/libguile/posix.c
index 324f21b..cbee94d 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -2286,6 +2286,261 @@ scm_init_popen (void)
@@ -2245,6 +2245,263 @@ scm_init_popen (void)
}
#endif
+
+/* Linux! */
+#ifdef __linux__
+
+#include <sys/mount.h>
+#include "libguile/foreign.h"
@ -265,7 +266,10 @@ index 324f21b..cbee94d 100644
+ return scm_from_short (ifr.ifr_flags);
+}
+#undef FUNC_NAME
+#endif
+
void
scm_init_posix ()
{
--
2.4.1