guix-commits
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]