[Top][All Lists]

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

27/66: gnu: gnumach: Use invoke.

From: Mark H. Weaver
Subject: 27/66: gnu: gnumach: Use invoke.
Date: Fri, 23 Mar 2018 04:46:43 -0400 (EDT)

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

commit a53ced66b1e2d8c5215658806fd34465641b8870
Author: Mark H Weaver <address@hidden>
Date:   Fri Mar 23 02:42:30 2018 -0400

    gnu: gnumach: Use invoke.
    * gnu/packages/hurd.scm (gnumach)[arguments]: Use invoke and remove 
    plumbing in the 'produce-image' phase.
 gnu/packages/hurd.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm
index 8dd976a..3ab3446 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -228,10 +228,9 @@ Hurd-minimal package which are needed for both glibc and 
                     (lambda* (#:key outputs #:allow-other-keys)
                       (let* ((out  (assoc-ref outputs "out"))
                              (boot (string-append out "/boot")))
-                        (and (zero? (system* "make" "gnumach.gz"))
-                             (begin
-                               (install-file "gnumach.gz" boot)
-                               #t))))))))
+                        (invoke "make" "gnumach.gz")
+                        (install-file "gnumach.gz" boot)
+                        #t))))))
      `(("mig" ,mig)
        ("perl" ,perl)))

reply via email to

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