From 30347caae78d200573554d9e3734efc9ccc37d9c Mon Sep 17 00:00:00 2001 From: Manolis Ragkousis 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') 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 +#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 1.4.1