58/66: gnu: texlive-fonts-amsfonts: Use invoke.

[Mark H. Weaver]

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

commit 2762023aad7c1e3d032810302d4c96b7070ba4be
Author: Mark H Weaver <address@hidden>
Date:   Fri Mar 23 03:59:55 2018 -0400

    gnu: texlive-fonts-amsfonts: Use invoke.
    
    * gnu/packages/tex.scm (texlive-fonts-amsfonts)[arguments]: Use invoke and
    remove vestigial plumbing in the custom build phase.
---
 gnu/packages/tex.scm | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 9fcf317..c8a293b 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -773,19 +773,20 @@ symbol fonts.")
                                       (assoc-ref inputs "texlive-fonts-cm")
                                       
"/share/texmf-dist/fonts/source/public/cm")))
              (mkdir "build")
-             (every (lambda (font)
-                      (format #t "building font ~a\n" (basename font ".mf"))
-                      (with-directory-excursion (dirname font)
-                        (zero? (system* "mf" "-progname=mf"
-                                        "-output-directory=../build"
-                                        (string-append "\\"
-                                                       "mode:=ljfour; "
-                                                       "mag:=1; "
-                                                       "nonstopmode; "
-                                                       "input "
-                                                       (getcwd) "/"
-                                                       (basename font 
".mf"))))))
-                    (find-files "." "[0-9]+\\.mf$"))))
+             (for-each (lambda (font)
+                         (format #t "building font ~a\n" (basename font ".mf"))
+                         (with-directory-excursion (dirname font)
+                           (invoke "mf" "-progname=mf"
+                                   "-output-directory=../build"
+                                   (string-append "\\"
+                                                  "mode:=ljfour; "
+                                                  "mag:=1; "
+                                                  "nonstopmode; "
+                                                  "input "
+                                                  (getcwd) "/"
+                                                  (basename font ".mf")))))
+                       (find-files "." "[0-9]+\\.mf$"))
+             #t))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))