[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

12/27: gnu: imb: Use INVOKE.

From: guix-commits
Subject: 12/27: gnu: imb: Use INVOKE.
Date: Fri, 25 Jan 2019 07:21:32 -0500 (EST)

rekado pushed a commit to branch master
in repository guix.

commit 1530b17aa14df91399f2dab0f5ee7951e27c6071
Author: Ricardo Wurmus <address@hidden>
Date:   Fri Jan 25 11:37:54 2019 +0100

    gnu: imb: Use INVOKE.
    * gnu/packages/benchmark.scm (imb)[arguments]: Use INVOKE.
 gnu/packages/benchmark.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/benchmark.scm b/gnu/packages/benchmark.scm
index e97e827..c670a9a 100644
--- a/gnu/packages/benchmark.scm
+++ b/gnu/packages/benchmark.scm
@@ -135,10 +135,9 @@ is to write a job file matching the I/O load one wants to 
          (replace 'build
            (lambda* (#:key inputs #:allow-other-keys)
              (let ((mpi-home (assoc-ref inputs "mpi")))
-               (zero?
-                ;; Not safe for parallel build
-                (system* "make" "-C" "imb/src" "-f" "make_mpich" "SHELL=sh"
-                         (string-append "MPI_HOME=" mpi-home))))))
+               ;; Not safe for parallel build
+               (invoke "make" "-C" "imb/src" "-f" "make_mpich" "SHELL=sh"
+                       (string-append "MPI_HOME=" mpi-home)))))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))

reply via email to

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