27/66: gnu: gnumach: Use invoke.

[Mark H. Weaver]

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 
vestigial
    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 
GCC.")
                     (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))))))
     (native-inputs
      `(("mig" ,mig)
        ("perl" ,perl)))