guix system: Gracefully handle 'install-grub' errors.

* guix/scripts/system.scm (install): Wrap 'install-grub' call in
  'false-if-exception'.  This is a followup to 641f9a2a.
This commit is contained in:
Ludovic Courtès 2014-06-24 22:11:12 +02:00
parent f6ad09ae5a
commit cadf6cb4cf

View file

@ -113,7 +113,7 @@ (define to-copy
(populate-root-file-system target)
(when grub?
(unless (install-grub grub.cfg device target)
(unless (false-if-exception (install-grub grub.cfg device target))
(leave (_ "failed to install GRUB on device '~a'~%") device))))