gnu: gnumach: Use invoke.

* gnu/packages/hurd.scm (gnumach)[arguments]: Use invoke and remove vestigial
plumbing in the 'produce-image' phase.
This commit is contained in:
Mark H Weaver 2018-03-23 02:42:30 -04:00
parent 92fcb831c0
commit a53ced66b1
No known key found for this signature in database
GPG key ID: 7CEF29847562C516

View file

@ -228,10 +228,9 @@ (define-public gnumach
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(boot (string-append out "/boot"))) (boot (string-append out "/boot")))
(and (zero? (system* "make" "gnumach.gz")) (invoke "make" "gnumach.gz")
(begin (install-file "gnumach.gz" boot)
(install-file "gnumach.gz" boot) #t))))))
#t))))))))
(native-inputs (native-inputs
`(("mig" ,mig) `(("mig" ,mig)
("perl" ,perl))) ("perl" ,perl)))