From 4cebe82fa680e4878543d8ccc8190e2302161c6c Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 24 Nov 2020 23:16:59 +0100 Subject: 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(-) (limited to 'guix/build/texlive-build-system.scm') 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 -- cgit v1.2.3