civodul pushed a commit to branch wip-hurd-vm
in repository guix.

commit a991ee6387731885b9540e1a6cf12ae7c87c12c6
Author: Ludovic Courtès <[email protected]>
AuthorDate: Tue Mar 31 23:44:25 2020 +0200

    gnu: gnumach: Fix compilation.
    
    * gnu/packages/hurd.scm (gnumach)[arguments]: Inherit arguments from
    GNUMACH-HEADERS.
    [native-inputs]: Add AUTOCONF, AUTOMAKE, and TEXINFO-4.
---
 gnu/packages/hurd.scm | 25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm
index b2a53b5..f94d4fa 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2014, 2015, 2016, 2017 Manolis Fragkiskos Ragkousis 
<[email protected]>
-;;; Copyright © 2018 Ludovic Courtès <[email protected]>
+;;; Copyright © 2018, 2020 Ludovic Courtès <[email protected]>
 ;;; Copyright © 2020 Efraim Flashner <[email protected]>
 ;;; Copyright © 2020 Marius Bakke <[email protected]>
 ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <[email protected]>
@@ -263,17 +263,22 @@ Hurd-minimal package which are needed for both glibc and 
GCC.")
     (inherit gnumach-headers)
     (name "gnumach")
     (arguments
-     `(#:phases (modify-phases %standard-phases
-                  (add-after 'install 'produce-image
-                    (lambda* (#:key outputs #:allow-other-keys)
-                      (let* ((out  (assoc-ref outputs "out"))
-                             (boot (string-append out "/boot")))
-                        (invoke "make" "gnumach.gz")
-                        (install-file "gnumach.gz" boot)
-                        #t))))))
+     (substitute-keyword-arguments (package-arguments gnumach-headers)
+       ((#:phases phases '%standard-phases)
+        `(modify-phases %standard-phases
+           (add-after 'install 'produce-image
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out  (assoc-ref outputs "out"))
+                      (boot (string-append out "/boot")))
+                 (invoke "make" "gnumach.gz")
+                 (install-file "gnumach.gz" boot)
+                 #t)))))))
     (native-inputs
      `(("mig" ,mig)
-       ("perl" ,perl)))
+       ("perl" ,perl)
+       ("autoconf" ,autoconf)
+       ("automake" ,automake)
+       ("texinfo" ,texinfo-4)))
     (supported-systems (cons "i686-linux" %hurd-systems))
     (synopsis "Microkernel of the GNU system")
     (description

Reply via email to