11/30: download: Use invoke instead of system*.

[Mark H. Weaver]

mhw pushed a commit to branch core-updates
in repository guix.

commit 20927c9331b493eaf94211ad9f8a5055e11b4588
Author: Mark H Weaver <m...@netris.org>
Date:   Fri Mar 16 03:40:00 2018 -0400

    download: Use invoke instead of system*.
    
    * guix/download.scm (url-fetch/tarbomb, url-fetch/zipbomb): Use invoke.
---
 guix/download.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/guix/download.scm b/guix/download.scm
index 55da2c1..50aa78f 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -517,8 +517,8 @@ own.  This helper makes it easier to deal with \"tar 
bombs\"."
                           (mkdir #$output)
                           (setenv "PATH" (string-append #$gzip "/bin"))
                           (chdir #$output)
-                          (zero? (system* (string-append #$tar "/bin/tar")
-                                          "xf" #$drv)))
+                          (invoke (string-append #$tar "/bin/tar")
+                                  "xf" #$drv))
                       #:local-build? #t)))
 
 (define* (url-fetch/zipbomb url hash-algo hash
@@ -546,8 +546,8 @@ own.  This helper makes it easier to deal with \"zip 
bombs\"."
                       #~(begin
                           (mkdir #$output)
                           (chdir #$output)
-                          (zero? (system* (string-append #$unzip "/bin/unzip")
-                                          #$drv)))
+                          (invoke (string-append #$unzip "/bin/unzip")
+                                  #$drv))
                       #:local-build? #t)))
 
 (define* (download-to-store store url #:optional (name (basename url))