guix system: Factorize 'grub-install' error handling, and use more 'mbegin'.

* guix/scripts/system.scm (install-grub*): New procedure.
  (install): Use it, and use 'mwhen?'.
  (perform-action) <reconfigure>: Likewise.