ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-16 03:45:24 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: r-with-tests: Remove trailing #T.

Browse source 
* gnu/packages/statistics.scm (r-with-tests)[arguments]: Remove trailing #T
from build phases.
This commit is contained in:
Ricardo Wurmus 2021-11-04 09:40:41 +00:00
parent 17d0bbef88
commit 108111114d
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 6 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/statistics.scm
View file

@ -215,8 +215,7 @@ (define r-with-tests
;; This ensures that Guix can detect embedded store references; ;; This ensures that Guix can detect embedded store references;
;; see bug #28157 for details. ;; see bug #28157 for details.
(substitute* "src/library/base/makebasedb.R" (substitute* "src/library/base/makebasedb.R"
(("compress = TRUE") "compress = FALSE")) (("compress = TRUE") "compress = FALSE"))))
#t))
(add-before 'configure 'patch-coreutils-paths (add-before 'configure 'patch-coreutils-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let* ((coreutils (assoc-ref inputs "coreutils")) (let* ((coreutils (assoc-ref inputs "coreutils"))
@ -225,8 +224,7 @@ (define r-with-tests
(substitute* "src/scripts/R.sh.in" (substitute* "src/scripts/R.sh.in"
(("uname") uname-bin)) (("uname") uname-bin))
(substitute* "src/unix/sys-std.c" (substitute* "src/unix/sys-std.c"
(("rm -Rf ") (string-append rm-bin " -Rf ")))) (("rm -Rf ") (string-append rm-bin " -Rf "))))))
#t))
(add-after 'unpack 'build-reproducibly (add-after 'unpack 'build-reproducibly
(lambda _ (lambda _
;; The documentation contains time stamps to demonstrate ;; The documentation contains time stamps to demonstrate
@ -285,17 +283,15 @@ (define r-with-tests
;; that is suspected to be the culprit. ;; that is suspected to be the culprit.
(substitute* "src/library/methods/DESCRIPTION.in" (substitute* "src/library/methods/DESCRIPTION.in"
(("\\(2008\\)\n") "(2008) ") (("\\(2008\\)\n") "(2008) ")
((" ``Software") "``Software")) ((" ``Software") "``Software"))))
#t))
(add-before 'build 'set-locales (add-before 'build 'set-locales
(lambda _ (lambda _
(setlocale LC_ALL "C") (setlocale LC_ALL "C")
(setenv "LC_ALL" "C") (setenv "LC_ALL" "C")))
#t))
(add-before 'configure 'set-default-pager (add-before 'configure 'set-default-pager
;; Set default pager to "cat", because otherwise it is "false", ;; Set default pager to "cat", because otherwise it is "false",
;; making "help()" print nothing at all. ;; making "help()" print nothing at all.
(lambda _ (setenv "PAGER" "cat") #t)) (lambda _ (setenv "PAGER" "cat")))
(add-before 'check 'set-timezone (add-before 'check 'set-timezone
;; Some tests require the timezone to be set. However, the ;; Some tests require the timezone to be set. However, the
;; timezone may not just be "UTC", or else a brittle regression ;; timezone may not just be "UTC", or else a brittle regression
@ -304,8 +300,7 @@ (define r-with-tests
(setenv "TZ" "UTC+1") (setenv "TZ" "UTC+1")
(setenv "TZDIR" (setenv "TZDIR"
(string-append (assoc-ref inputs "tzdata") (string-append (assoc-ref inputs "tzdata")
"/share/zoneinfo")) "/share/zoneinfo"))))
#t))
(add-after 'build 'make-info (add-after 'build 'make-info
(lambda _ (invoke "make" "info"))) (lambda _ (invoke "make" "info")))
(add-after 'build 'install-info (add-after 'build 'install-info