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

[Manolis Fragkiskos Ragkousis]

phant0mas pushed a commit to branch core-updates
in repository guix.

commit 30347caae78d200573554d9e3734efc9ccc37d9c
Author: Manolis Ragkousis <address@hidden>
Date:   Sat May 23 22:10:34 2015 +0300

    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 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/patches/guile-linux-syscalls.patch 
b/gnu/packages/patches/guile-linux-syscalls.patch
index 57c7f25..25a5e90 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