gnu: texlive-fonts-rsfs: Use 'invoke'.

* gnu/packages/tex.scm (texlive-fonts-rsfs)[arguments]: Use 'invoke' in
place of 'system*'.
This commit is contained in:
Efraim Flashner 2018-03-14 21:00:29 +02:00
parent e26de9c928
commit d5fb4a3a9f
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -2995,13 +2995,13 @@ (define-public texlive-fonts-rsfs
(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)