guix system: Fix return value for 'reconfigure'.

* guix/scripts/system.scm (perform-action) <reconfigure>: Add missing
  'return' expression.
This commit is contained in:
Ludovic Courtès 2014-07-13 23:44:37 +02:00
parent fa16f84502
commit 314a83ef1e
1 changed files with 2 additions and 1 deletions

View File

@ -289,7 +289,8 @@ actions."
(when grub? (when grub?
(unless (install-grub grub.cfg device target) (unless (install-grub grub.cfg device target)
(leave (_ "failed to install GRUB on device '~a'~%") (leave (_ "failed to install GRUB on device '~a'~%")
device))))) device)))
(return #t)))
((init) ((init)
(newline) (newline)
(format #t (_ "initializing operating system under '~a'...~%") (format #t (_ "initializing operating system under '~a'...~%")