~ruther/guix-local: gnu: linux-initrd: Start a REPL when the root could not be mounted.

83b9e6a1854d4fb86f0269afac33200dce996f06 — Ludovic Courtès 12 years ago 882f034

gnu: linux-initrd: Start a REPL when the root could not be mounted.

* guix/build/linux-initrd.scm (boot-system): Catch errors when mounting
  ROOT and call 'start-repl' upon error.

patch browse .tar.gz

1 files changed, 7 insertions(+), 1 deletions(-)

M guix/build/linux-initrd.scm

M guix/build/linux-initrd.scm => guix/build/linux-initrd.scm +7 -1

@@ 217,7 217,13 @@ the new root."
     (unless (file-exists? "/root")
       (mkdir "/root"))
     (if root
-        (mount root "/root" "ext3")
+        (catch #t
+          (lambda ()
+            (mount root "/root" "ext3"))
+          (lambda args
+            (format (current-error-port) "exception while mounting '~a': ~s~%"
+                    root args)
+            (start-repl)))
         (mount "none" "/root" "tmpfs"))
     (mount-essential-file-systems #:root "/root")