diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2018-06-11 23:52:15 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2018-06-11 23:52:15 +0200 |
| commit | a032b4454b3fc67e11e9fc2d8c2345288065fa29 (patch) | |
| tree | c208124b79dbd2224b68c52106aa72ff2ebfa7ab /gnu/packages/dictionaries.scm | |
| parent | b5724230fed2d043206df20d12a45bb962b7ee77 (diff) | |
| parent | 6321ce42ab4d9ab788d858cb19bde4aa7a0e3ecc (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'gnu/packages/dictionaries.scm')
| -rw-r--r-- | gnu/packages/dictionaries.scm | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/gnu/packages/dictionaries.scm b/gnu/packages/dictionaries.scm index 55f250182d..ec85831d64 100644 --- a/gnu/packages/dictionaries.scm +++ b/gnu/packages/dictionaries.scm @@ -63,7 +63,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) @@ -71,14 +71,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) @@ -113,9 +111,9 @@ acronyms distributed as an info document.") (set-path-environment-variable "PATH" '("bin") (list tar xz)) (mkdir-p datadir) - (zero? (system* "tar" "-C" datadir - "--strip-components=1" - "-xvf" src)))) + (invoke "tar" "-C" datadir + "--strip-components=1" + "-xvf" src))) #:modules ((guix build utils)))) (native-inputs `(("tar" ,tar) |