10/28: system: Add 'hurd' field to <operating-system>.

[guix-commits]

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

commit 7d78442328709d3076f1f784bbc5f790cd90cefb
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Sun May 3 15:09:15 2020 +0200

    system: Add 'hurd' field to <operating-system>.
    
    * gnu/system.scm (<operating-system>)[hurd]: New field.
    * doc/guix.texi (operating-system Reference): Document 'hurd'.
---
 doc/guix.texi  | 7 ++++++-
 gnu/system.scm | 3 +++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 2b1f307..c644bcf 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -11456,7 +11456,12 @@ configuration (@pxref{Using the Configuration System}).
 @item @code{kernel} (default: @code{linux-libre})
 The package object of the operating system kernel to use@footnote{Currently
 only the Linux-libre kernel is supported.  In the future, it will be
-possible to use the GNU@tie{}Hurd.}.
+possible to use the GNU@tie{}mach.}.
+
+@cindex hurd
+@item @code{hurd} (default: @code{#f})
+The hurd to be started by the kernel.  This only makes sence, really
+when using @code{kernel} @code{gnumach}.
 
 @item @code{kernel-loadable-modules} (default: '())
 A list of objects (usually packages) to collect loadable kernel modules
diff --git a/gnu/system.scm b/gnu/system.scm
index b769e37..dec620e 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -83,6 +83,7 @@
             operating-system-packages
             operating-system-host-name
             operating-system-hosts-file
+            operating-system-hurd
             operating-system-kernel
             operating-system-kernel-file
             operating-system-kernel-arguments
@@ -187,6 +188,8 @@
                     (default '()))                ; list of packages
   (kernel-arguments operating-system-user-kernel-arguments
                     (default %default-kernel-arguments)) ; list of 
gexps/strings
+  (hurd operating-system-hurd
+        (default #f))                             ; package
   (bootloader operating-system-bootloader)        ; <bootloader-configuration>
   (label operating-system-label                   ; string
          (thunked)