From 314a83ef1e80b47b44debc1118e38d7f761e0e7f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 13 Jul 2014 23:44:37 +0200
Subject: [PATCH] guix system: Fix return value for 'reconfigure'.
* guix/scripts/system.scm (perform-action) <reconfigure>: Add missing
'return' expression.
---
guix/scripts/system.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index ec098a08eb9..be726e21252 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -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'...~%")
--
GitLab