me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* guix/build/texlive-build-system.scm (configure): Remove trailing #t.
(build): Use 'for-each' instead of 'every'.
(install): Remove trailing #t.
This commit is contained in:
Ludovic Courtès 2020-11-24 23:16:59 +01:00
parent 49eadd270c
commit 4cebe82fa6
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
guix/build/texlive-build-system.scm
View file

@ -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