mhw pushed a commit to branch core-updates
in repository guix.
commit 22fc1b90f03749c3af0da1c9856abc6251526a7f
Author: Mark H Weaver <[email protected]>
Date: Tue Mar 27 19:56:54 2018 -0400
gnu: vera: Use invoke.
* gnu/packages/dictionaries.scm (vera)[arguments]: Use invoke and remove
vestigial plumbing in the builder.
---
gnu/packages/dictionaries.scm | 16 +++++++---------
1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/gnu/packages/dictionaries.scm b/gnu/packages/dictionaries.scm
index 3f50070..900d535 100644
--- a/gnu/packages/dictionaries.scm
+++ b/gnu/packages/dictionaries.scm
@@ -62,7 +62,7 @@
(gz (assoc-ref %build-inputs "gzip"))
(texi (assoc-ref %build-inputs "texinfo")))
(setenv "PATH" (string-append gz "/bin"))
- (system* (string-append tar "/bin/tar") "xvf" source)
+ (invoke (string-append tar "/bin/tar") "xvf" source)
(chdir (string-append "vera-" ,version))
(mkdir-p info)
@@ -70,14 +70,12 @@
;; XXX: Use '--force' because the document is unhappy
;; with Texinfo 5 (yes, documents can be unhappy.)
- (and (zero?
- (system* (string-append texi "/bin/makeinfo")
- "vera.texi" "--force" "-o"
- (string-append info "/vera.info")))
- (zero?
- (system* (string-append texi "/bin/makeinfo")
- "vera.texi" "--force" "--html" "-o"
- (string-append html "/vera.html"))))))
+ (invoke (string-append texi "/bin/makeinfo")
+ "vera.texi" "--force" "-o"
+ (string-append info "/vera.info"))
+ (invoke (string-append texi "/bin/makeinfo")
+ "vera.texi" "--force" "--html" "-o"
+ (string-append html "/vera.html"))))
#:modules ((guix build utils))))
(native-inputs `(("texinfo" ,texinfo)
("tar" ,tar)
