~ruther/guix-local: linux-initrd: Display a backtrace when the initial program fails.

eb7ccb1afaaa5db3a6c4fdec0a9f22919d100952 — Ludovic Courtès 12 years ago 9bea3b4

linux-initrd: Display a backtrace when the initial program fails.

* guix/build/linux-initrd.scm (boot-system): Add pre-unwind handler in
  'catch' form around 'primitive-load', and call 'format' and
  'display-backtrace' from there.

patch browse .tar.gz

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

M guix/build/linux-initrd.scm

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

@@ 483,9 483,11 @@ to it are lost."
             (lambda ()
               (primitive-load to-load))
             (lambda args
+              (start-repl))
+            (lambda args
               (format (current-error-port) "'~a' raised an exception: ~s~%"
                       to-load args)
-              (start-repl)))
+              (display-backtrace (make-stack #t) (current-error-port))))
           (format (current-error-port)
                   "boot program '~a' terminated, rebooting~%"
                   to-load)