diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-11-24 23:16:59 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-11-25 00:02:30 +0100 |
commit | 4cebe82fa680e4878543d8ccc8190e2302161c6c (patch) | |
tree | e470639ffeda1a8f01746abaa6fcd15cbbb88356 /guix | |
parent | 49eadd270c18c84e95df2677a5dfe9b3afc3036d (diff) |
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.
Diffstat (limited to 'guix')
-rw-r--r-- | guix/build/texlive-build-system.scm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/guix/build/texlive-build-system.scm b/guix/build/texlive-build-system.scm index 841c631dae..a4c81f07cd 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 |