me
/
guix
Archived
1
0
Fork 0
Code

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.
master
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 "error_line" "254") ; must be less than 255
(setenv "half_error_line" "238") ; must be less than error_line - 15 (setenv "half_error_line" "238") ; must be less than error_line - 15
(setenv "max_print_line" "1000")) (setenv "max_print_line" "1000"))
(mkdir "build") (mkdir "build"))
#t)
(define* (build #:key inputs build-targets tex-format #:allow-other-keys) (define* (build #:key inputs build-targets tex-format #:allow-other-keys)
(every (cut compile-with-latex tex-format <>) (for-each (cut compile-with-latex tex-format <>)
(if build-targets build-targets (if build-targets build-targets
(scandir "." (cut string-suffix? ".ins" <>))))) (scandir "." (cut string-suffix? ".ins" <>)))))
(define* (install #:key outputs tex-directory #:allow-other-keys) (define* (install #:key outputs tex-directory #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -81,8 +80,7 @@
(mkdir-p target) (mkdir-p target)
(for-each delete-file (find-files "." "\\.(log|aux)$")) (for-each delete-file (find-files "." "\\.(log|aux)$"))
(for-each (cut install-file <> target) (for-each (cut install-file <> target)
(find-files "build" ".*")) (find-files "build" ".*"))))
#t))
(define %standard-phases (define %standard-phases
(modify-phases gnu:%standard-phases (modify-phases gnu:%standard-phases