From 9be28375cf6d900e075b470412d629ddbd8710c0 Mon Sep 17 00:00:00 2001
From: Nicolas Graves <ngraves@ngraves.fr>
Date: Wed, 9 Aug 2023 11:28:34 +0200
Subject: reconfigure: Use let* from srfi-71.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* guix/scripts/system/reconfigure.scm (upgrade-shepherd-services): Merge
'let' + 'let*' in just 'let*'.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/scripts/system/reconfigure.scm | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/guix/scripts/system/reconfigure.scm b/guix/scripts/system/reconfigure.scm
index 9948df0ca6..ff6242ffb4 100644
--- a/guix/scripts/system/reconfigure.scm
+++ b/guix/scripts/system/reconfigure.scm
@@ -186,22 +186,22 @@ (define target-services
                      #:target-type shepherd-root-service-type))))
 
   (mlet* %store-monad ((live-services (running-services eval)))
-    (let ((to-unload to-restart
-                     (shepherd-service-upgrade live-services target-services)))
-      (let* ((to-unload  (map live-service-canonical-name to-unload))
-             (to-restart (map shepherd-service-canonical-name to-restart))
-             (running    (map live-service-canonical-name
-                              (filter live-service-running live-services)))
-             (to-start   (lset-difference eqv?
-                                          (map shepherd-service-canonical-name
-                                               target-services)
-                                          running))
-             (service-files (map shepherd-service-file target-services)))
-        (eval #~(parameterize ((current-warning-port (%make-void-port "w")))
-                  (primitive-load #$(upgrade-services-program service-files
-                                                              to-start
-                                                              to-unload
-                                                              to-restart))))))))
+    (let* ((to-unload to-restart
+                      (shepherd-service-upgrade live-services target-services))
+           (to-unload  (map live-service-canonical-name to-unload))
+           (to-restart (map shepherd-service-canonical-name to-restart))
+           (running    (map live-service-canonical-name
+                            (filter live-service-running live-services)))
+           (to-start   (lset-difference eqv?
+                                        (map shepherd-service-canonical-name
+                                             target-services)
+                                        running))
+           (service-files (map shepherd-service-file target-services)))
+      (eval #~(parameterize ((current-warning-port (%make-void-port "w")))
+                (primitive-load #$(upgrade-services-program service-files
+                                                            to-start
+                                                            to-unload
+                                                            to-restart)))))))
 
 
 ;;;
-- 
cgit v1.2.3