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
1 changed files with 1 additions and 1 deletions

View File

@ -113,7 +113,7 @@ When GRUB? is true, install GRUB on DEVICE, using GRUB.CFG."
(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))))