From 30347caae78d200573554d9e3734efc9ccc37d9c Mon Sep 17 00:00:00 2001
From: Manolis Ragkousis <manolis837@gmail.com>
Date: Sat, 23 May 2015 22:10:34 +0300
Subject: 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.
---
gnu/packages/patches/guile-linux-syscalls.patch | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
(limited to 'gnu/packages/patches/guile-linux-syscalls.patch')
diff --git a/gnu/packages/patches/guile-linux-syscalls.patch b/gnu/packages/patches/guile-linux-syscalls.patch
index 57c7f2589d..25a5e90e35 100644
--- a/gnu/packages/patches/guile-linux-syscalls.patch
+++ b/gnu/packages/patches/guile-linux-syscalls.patch
@@ -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
--
cgit v1.2.3