me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2014-05-20 21:56:20 +02:00
parent 9bea3b42b4
commit eb7ccb1afa
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/build/linux-initrd.scm
View file

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