From: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 29 Jun 2020 13:24:45 +0000 (+0200)
Subject: system: 'read-boot-parameters' allow initrd to be missing.
X-Git-Url: http://git.hcoop.net/jackhill/guix/guix.git/commitdiff_plain/12906d3e2a79305270ade4a356d8b334d55ac264

system: 'read-boot-parameters' allow initrd to be missing.

* gnu/system.scm (read-boot-parameters): Allow initrd to be missing.
---

diff --git a/gnu/system.scm b/gnu/system.scm
index 6a39931a41..a6a9c958e6 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -351,7 +351,8 @@ file system labels."
          (('initrd ('string-append directory file)) ;the old format
           (string-append directory file))
          (('initrd (? string? file))
-          file)))
+          file)
+         (#f #f)))
 
       (multiboot-modules
        (match (assq 'multiboot-modules rest)