apteryx pushed a commit to branch master
in repository guix.
commit b7e02bc4cb295ec7e9787db858cb944b0b538cb1
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Mon Dec 16 12:12:36 2024 +0900
build/guile-build-system: Remove trailing #t in phases.
* guix/build/guile-build-system.scm (set-locale-path): Delete trailing #t.
(invoke-each, build, install-documentation): Likewise.
Change-Id: I7a0d035b9bef2160856e141642dee70974c571db
---
guix/build/guile-build-system.scm | 12 ++++--------
1 file changed, 4 insertions(+), 8 deletions(-)
diff --git a/guix/build/guile-build-system.scm
b/guix/build/guile-build-system.scm
index 8927da224a..37a1654ce4 100644
--- a/guix/build/guile-build-system.scm
+++ b/guix/build/guile-build-system.scm
@@ -76,8 +76,7 @@ determined."
(match (assoc-ref (or native-inputs inputs) "locales")
(#f #t)
(locales
- (setenv "GUIX_LOCPATH" (string-append locales "/lib/locale"))
- #t)))
+ (setenv "GUIX_LOCPATH" (string-append locales "/lib/locale")))))
(define* (invoke-each commands
#:key (max-processes (current-processor-count))
@@ -112,8 +111,7 @@ Raise an error if one of the processes exit with non-zero."
(lambda ()
(primitive-exit 127))))
(pid
- (hashv-set! processes pid command)
- #t)))
+ (hashv-set! processes pid command))))
(let loop ((commands commands)
(running 0)
@@ -208,8 +206,7 @@ installed; this is useful for files that are meant to be
included."
flags)))
source-files)
#:max-processes (parallel-job-count)
- #:report-progress report-build-progress))
- #t))
+ #:report-progress report-build-progress))))
(define* (install-documentation #:key outputs
(documentation-file-regexp
@@ -220,8 +217,7 @@ installed; this is useful for files that are meant to be
included."
(doc (string-append out "/share/doc/"
(strip-store-file-name out))))
(for-each (cut install-file <> doc)
- (find-files "." documentation-file-regexp))
- #t))
+ (find-files "." documentation-file-regexp))))
(define %standard-phases
(modify-phases gnu:%standard-phases
