[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: gnu: stress-make: Use INVOKE.
From: |
guix-commits |
Subject: |
02/02: gnu: stress-make: Use INVOKE. |
Date: |
Sat, 26 Jan 2019 16:34:35 -0500 (EST) |
rekado pushed a commit to branch master
in repository guix.
commit 4aa266a0c6c51ad556464f560cf9b744ac577575
Author: Ricardo Wurmus <address@hidden>
Date: Sat Jan 26 22:34:04 2019 +0100
gnu: stress-make: Use INVOKE.
* gnu/packages/debug.scm (stress-make)[arguments]: Use INVOKE.
---
gnu/packages/debug.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/debug.scm b/gnu/packages/debug.scm
index b15e374..0f4a654 100644
--- a/gnu/packages/debug.scm
+++ b/gnu/packages/debug.scm
@@ -290,7 +290,7 @@ down the road.")
(modify-phases %standard-phases
(add-after 'unpack 'unpack-make
(lambda* (#:key inputs #:allow-other-keys)
- (zero? (system* "tar" "xf" (assoc-ref inputs
"make-source")))))
+ (invoke "tar" "xf" (assoc-ref inputs "make-source"))))
(add-after 'unpack-make 'set-default-shell
(lambda _
;; Taken mostly directly from (@ (gnu packages base) gnu-make)
@@ -300,7 +300,7 @@ down the road.")
(which "sh"))))))
(add-before 'configure 'repack-make
(lambda _
- (zero? (system* "tar" "cJf" "./make.tar.xz" ,make-dir))))))))
+ (invoke "tar" "cJf" "./make.tar.xz" ,make-dir)))))))
(home-page "https://github.com/losalamos/stress-make")
(synopsis "Expose race conditions in Makefiles")
(description