12/24: system: Support activation service for the Hurd.

[guix-commits]

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

commit c3fd2df705695a0dc9f393545606360be1ea6104
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sun May 3 16:32:09 2020 +0200

    system: Support activation service for the Hurd.
    
    * gnu/build/activation.scm (boot-time-system): Use "command-line" for the
    Hurd.
    * gnu/system.scm (hurd-default-essential-services): Add %boot-service and
    %activation-service.
---
 gnu/build/activation.scm | 4 +++-
 gnu/system.scm           | 2 ++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm
index 30f5e87..b915e6b 100644
--- a/gnu/build/activation.scm
+++ b/gnu/build/activation.scm
@@ -320,7 +320,9 @@ improvement."
 
 (define (boot-time-system)
   "Return the '--system' argument passed on the kernel command line."
-  (find-long-option "--system" (linux-command-line)))
+  (find-long-option "--system" (if (string-contains %host-type "linux-gnu")
+                                   linux-command-line
+                                   (command-line))))
 
 (define* (activate-current-system
           #:optional (system (or (getenv "GUIX_NEW_SYSTEM")
diff --git a/gnu/system.scm b/gnu/system.scm
index a37c5ba..4c23178 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -601,6 +601,8 @@ bookkeeping."
 
 (define (hurd-default-essential-services os)
   (list (service system-service-type '())
+        %boot-service
+        %activation-service
         (service profile-service-type '())))
 
 (define* (operating-system-services os)