* guix/download.scm (url-fetch/tarbomb, url-fetch/zipbomb): Use invoke.
(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
#~(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))