20/21: DRAFT: system: vm: Activate the Hurd.

[guix-commits]

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

commit 9a3ff0f684708b862cf4b2048f01c0803f7e5436
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Wed May 6 10:10:59 2020 +0200

    DRAFT: system: vm: Activate the Hurd.
    
    * gnu/system/vm.scm (system-qemu-image): Add boot-activation.
---
 gnu/system/vm.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index e5b297d..8a98252 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -651,6 +651,11 @@ of the GNU system as described by OS."
                              (with-parameters ((%current-target-system target))
                                hurd)
                              hurd)))
+         (boot-activation (and hurd (operating-system-activation-script os)))
+         (boot-activation (and hurd (if target
+                                   (with-parameters ((%current-target-system 
target))
+                                     boot-activation)
+                                   boot-activation)))
          (hurd-directives (if hurd
                               `((directory "/servers")
                                 ,@(map (lambda (server)
@@ -660,7 +665,9 @@ of the GNU system as described by OS."
                                          "kill" "suspend"))
                                 ("/hurd" -> ,(file-append hurd "/hurd"))
                                 (directory "/etc")
-                                ("/etc/ttys" -> ,(file-append hurd 
"/etc/ttys")))
+                                ("/etc/ttys" -> ,(file-append hurd 
"/etc/ttys"))
+                                (directory "/boot")
+                                ("/boot/activation" -> ,boot-activation))
                               '())))
     (qemu-image  #:os os
                  #:bootcfg-drv bootcfg