From 12906d3e2a79305270ade4a356d8b334d55ac264 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Mon, 29 Jun 2020 15:24:45 +0200
Subject: system: 'read-boot-parameters' allow initrd to be missing.

* gnu/system.scm (read-boot-parameters): Allow initrd to be missing.
---
 gnu/system.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'gnu/system.scm')

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)
-- 
cgit 1.4.1