guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

06/09: build-system/texlive: Phases no longer return a Boolean.


From: guix-commits
Subject: 06/09: build-system/texlive: Phases no longer return a Boolean.
Date: Tue, 24 Nov 2020 18:07:53 -0500 (EST)

civodul pushed a commit to branch core-updates
in repository guix.

commit 4cebe82fa680e4878543d8ccc8190e2302161c6c
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Nov 24 23:16:59 2020 +0100

    build-system/texlive: Phases no longer return a Boolean.
    
    * guix/build/texlive-build-system.scm (configure): Remove trailing #t.
    (build): Use 'for-each' instead of 'every'.
    (install): Remove trailing #t.
---
 guix/build/texlive-build-system.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/guix/build/texlive-build-system.scm 
b/guix/build/texlive-build-system.scm
index 841c631..a4c81f0 100644
--- a/guix/build/texlive-build-system.scm
+++ b/guix/build/texlive-build-system.scm
@@ -66,13 +66,12 @@
     (setenv "error_line" "254") ; must be less than 255
     (setenv "half_error_line" "238") ; must be less than error_line - 15
     (setenv "max_print_line" "1000"))
-  (mkdir "build")
-  #t)
+  (mkdir "build"))
 
 (define* (build #:key inputs build-targets tex-format #:allow-other-keys)
-  (every (cut compile-with-latex tex-format <>)
-         (if build-targets build-targets
-             (scandir "." (cut string-suffix? ".ins" <>)))))
+  (for-each (cut compile-with-latex tex-format <>)
+            (if build-targets build-targets
+                (scandir "." (cut string-suffix? ".ins" <>)))))
 
 (define* (install #:key outputs tex-directory #:allow-other-keys)
   (let* ((out (assoc-ref outputs "out"))
@@ -81,8 +80,7 @@
     (mkdir-p target)
     (for-each delete-file (find-files "." "\\.(log|aux)$"))
     (for-each (cut install-file <> target)
-              (find-files "build" ".*"))
-    #t))
+              (find-files "build" ".*"))))
 
 (define %standard-phases
   (modify-phases gnu:%standard-phases



reply via email to

[Prev in Thread] Current Thread [Next in Thread]