01/01: gnu: r: Use uname from Guix

[Roel Janssen]

roelj pushed a commit to branch master
in repository guix.

commit b5ce25cc0ecd1d8393f89ddca91be7000c0cc2cd
Author: Roel Janssen <address@hidden>
Date:   Thu Oct 27 16:36:09 2016 +0200

    gnu: r: Use uname from Guix
    
    * gnu/packages/statistics.scm (r): Use uname from Guix.
---
 gnu/packages/statistics.scm |    8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm
index 29eaadf..b15f9cf 100644
--- a/gnu/packages/statistics.scm
+++ b/gnu/packages/statistics.scm
@@ -118,6 +118,13 @@ be output in text, PostScript, PDF or HTML.")
                             "/lib/R/lib"))
        #:phases
        (modify-phases %standard-phases
+         (add-before 'configure 'patch-uname
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((uname-bin (string-append (assoc-ref inputs "coreutils")
+                                             "/bin/uname")))
+               (substitute* "src/scripts/R.sh.in"
+                 (("uname") uname-bin)))
+             #t))
          (add-before
           'configure 'set-default-pager
           ;; Set default pager to "cat", because otherwise it is "false",
@@ -169,6 +176,7 @@ be output in text, PostScript, PDF or HTML.")
      `(;; We need not only cairo here, but pango to ensure that tests for the
        ;; "cairo" bitmapType plotting backend succeed.
        ("pango" ,pango)
+       ("coreutils" ,coreutils)
        ("curl" ,curl)
        ("tzdata" ,tzdata)
        ("gfortran" ,gfortran)