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 6a39931..a6a9c95 100644 (file)
--- 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)