37/51: gnu: texlive-fonts-rsfs: Use 'invoke'.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit d5fb4a3a9f202e0246e93a0a5537c72a92aa319e
Author: Efraim Flashner <address@hidden>
Date:   Wed Mar 14 21:00:29 2018 +0200

    gnu: texlive-fonts-rsfs: Use 'invoke'.
    
    * gnu/packages/tex.scm (texlive-fonts-rsfs)[arguments]: Use 'invoke' in
    place of 'system*'.
---
 gnu/packages/tex.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index aec7491..da55e52 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -2995,13 +2995,13 @@ 
texlive-2017.1/Master/texmf-dist/doc/fonts/ec/copyrite.txt"))))
              (mkdir "build")
              (every (lambda (font)
                       (format #t "building font ~a\n" font)
-                      (zero? (system* "mf" "-progname=mf"
-                                      "-output-directory=build"
-                                      (string-append "\\"
-                                                     "mode:=ljfour; "
-                                                     "mag:=1; "
-                                                     "batchmode; "
-                                                     "input " (basename font 
".mf")))))
+                      (invoke "mf" "-progname=mf"
+                              "-output-directory=build"
+                              (string-append "\\"
+                                             "mode:=ljfour; "
+                                             "mag:=1; "
+                                             "batchmode; "
+                                             "input " (basename font ".mf"))))
                     (find-files "." "[0-9]+\\.mf$"))))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)