From d5fb4a3a9f202e0246e93a0a5537c72a92aa319e Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Wed, 14 Mar 2018 21:00:29 +0200
Subject: 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 aec74912a3..da55e52b33 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)
-- 
cgit v1.2.3