system: 'read-boot-parameters' bugfix for multiboot.

* gnu/system.scm (read-boot-parameters): Oops, only return value for
multiboot-modules instead of (key value).

diff --git a/gnu/system.scm b/gnu/system.scm
index 44baace..6a39931 100644 (file)
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -353,7 +353,10 @@ file system labels."
          (('initrd (? string? file))
           file)))
 
-      (multiboot-modules (or (assq 'multiboot-modules rest) '()))
+      (multiboot-modules
+       (match (assq 'multiboot-modules rest)
+         ((_ args) args)
+         (#f       '())))
 
       (store-device
        ;; Linux device names like "/dev/sda1" are not suitable GRUB device