193/211: gnu: glibc-mesboot: Oops, install everything.

[Jan Nieuwenhuizen]

janneke pushed a commit to branch wip-bootstrap
in repository guix.

commit 9f10cd2cf7381ae2825309288d14ce44591323a0
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Mon Sep 3 22:50:06 2018 +0200

    gnu: glibc-mesboot: Oops, install everything.
    
    * gnu/packages/commencement.scm (glibc-mesboot): Oops, install everything.
---
 gnu/packages/commencement.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index d72b24e..694e8a6 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -1422,7 +1422,17 @@ exec " gcc "/bin/" program
       `(,@(substitute-keyword-arguments (package-arguments 
glibc-headers-mesboot)
             ((#:make-flags make-flags)
              `(let ((bash (assoc-ref %build-inputs "bash")))
-                (list (string-append "SHELL=" bash "/bin/sh"))))))))))
+                (list (string-append "SHELL=" bash "/bin/sh"))))
+            ((#:phases phases)
+             `(modify-phases ,phases
+                (replace 'install
+                  (lambda* (#:key outputs make-flags #:allow-other-keys)
+                    (let* ((kernel-headers (assoc-ref %build-inputs 
"kernel-headers"))
+                           (out (assoc-ref outputs "out"))
+                           (install-flags (cons "install" make-flags)))
+                      (and (apply invoke "make" install-flags)
+                           (copy-recursively kernel-headers out)
+                           #t))))))))))))
 
 (define-public m4-mesboot
   (package-with-bootstrap-guile