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

View file

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