From f4f4ced8dccba6bc0b7c5d5e4c90cdb6488d1faf Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de>
Date: Thu, 2 Jul 2015 10:49:17 +0200
Subject: 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 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm
index 91d988ebd4..1697ce258e 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"
-- 
cgit v1.2.3