01/01: gnu: r: Set default pager.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit f4f4ced8dccba6bc0b7c5d5e4c90cdb6488d1faf
Author: Ricardo Wurmus <address@hidden>
Date:   Thu Jul 2 10:49:17 2015 +0200

    gnu: r: Set default pager.
    
    * gnu/packages/statistics.scm (r)[arguments]: Add phase "set-default-pager" 
to
      avoid "false" as a default pager.
---
 gnu/packages/statistics.scm |   15 ++++++++++-----
 1 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm
index 91d988e..1697ce2 100644
--- a/gnu/packages/statistics.scm
+++ b/gnu/packages/statistics.scm
@@ -58,11 +58,16 @@
                             (assoc-ref %outputs "out")
                             "/lib/R/lib"))
        #:phases
-       (alist-cons-before
-        'check 'set-timezone
-        ;; Some tests require the timezone to be set.
-        (lambda _ (setenv "TZ" "UTC"))
-        %standard-phases)
+       (modify-phases %standard-phases
+         (add-before
+          'configure 'set-default-pager
+          ;; Set default pager to "cat", because otherwise it is "false",
+          ;; making "help()" print nothing at all.
+          (lambda _ (setenv "PAGER" "cat") #t))
+         (add-before
+          'check 'set-timezone
+          ;; Some tests require the timezone to be set.
+          (lambda _ (setenv "TZ" "UTC") #t)))
        #:configure-flags
        '("--with-blas"
          "--with-lapack"