3
4
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

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

* gnu/system.scm (read-boot-parameters): Oops, only return value for
multiboot-modules instead of (key value).
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-06-29 15:24:45 +02:00
parent 67d621c56e
commit aa864ebdb0
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273

View file

@ -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