guix-commits
[Top][All Lists]
Advanced

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

63/66: gnu: texlive-fonts-rsfs: Remove vestigial error plumbing.


From: Mark H. Weaver
Subject: 63/66: gnu: texlive-fonts-rsfs: Remove vestigial error plumbing.
Date: Fri, 23 Mar 2018 04:46:49 -0400 (EDT)

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

commit d8ac82c209a786c39de20102cd90810b4ddb0f44
Author: Mark H Weaver <address@hidden>
Date:   Fri Mar 23 04:08:13 2018 -0400

    gnu: texlive-fonts-rsfs: Remove vestigial error plumbing.
    
    * gnu/packages/tex.scm (texlive-fonts-rsfs)[arguments]: Remove vestigial 
error
    code plumbing.
---
 gnu/packages/tex.scm | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 143ea2d..36b7def 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -2997,16 +2997,17 @@ 
texlive-2017.1/Master/texmf-dist/doc/fonts/ec/copyrite.txt"))))
                                       (assoc-ref inputs "texlive-fonts-cm")
                                       
"/share/texmf-dist/fonts/source/public/cm")))
              (mkdir "build")
-             (every (lambda (font)
-                      (format #t "building font ~a\n" font)
-                      (invoke "mf" "-progname=mf"
-                              "-output-directory=build"
-                              (string-append "\\"
-                                             "mode:=ljfour; "
-                                             "mag:=1; "
-                                             "batchmode; "
-                                             "input " (basename font ".mf"))))
-                    (find-files "." "[0-9]+\\.mf$"))))
+             (for-each (lambda (font)
+                         (format #t "building font ~a\n" font)
+                         (invoke "mf" "-progname=mf"
+                                 "-output-directory=build"
+                                 (string-append "\\"
+                                                "mode:=ljfour; "
+                                                "mag:=1; "
+                                                "batchmode; "
+                                                "input " (basename font 
".mf"))))
+                       (find-files "." "[0-9]+\\.mf$"))
+             #t))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))



reply via email to

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