04/04: guix system: "describe" displays multiboot info.

[guix-commits]

janneke pushed a commit to branch master
in repository guix.

commit 28febfafbb23561624cc5c4ac8ed581f1f867f70
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Mon Jun 29 15:24:56 2020 +0200

    guix system: "describe" displays multiboot info.
    
    * guix/scripts/system.scm (display-system-generation): Display
    multiboot-modules commands if set.
---
 guix/scripts/system.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 28aaa6e..61eeec6 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -482,6 +482,7 @@ list of services."
                             (uuid->string root)
                             root))
            (kernel      (boot-parameters-kernel params))
+           (multiboot-modules (boot-parameters-multiboot-modules params))
            (provenance  (catch 'system-error
                           (lambda ()
                             (call-with-input-file
@@ -511,6 +512,12 @@ list of services."
 
       (format #t (G_ "  kernel: ~a~%") kernel)
 
+      (match multiboot-modules
+        (() #f)
+        (((modules . _) ...)
+         (format #t (G_ "  multiboot: ~a~%")
+                 (string-join modules "\n    "))))
+
       (match provenance
         (#f #t)
         (('provenance ('version 0)