From 3b72a158beee22cec7651c8c2105648f44475bd8 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Thu, 27 Oct 2016 12:48:21 +0200
Subject: cuirass: Check specifications from the database inside the loop.

* bin/cuirass (main): Remove 'let' before main loop.
---
 bin/cuirass.in | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'bin')

diff --git a/bin/cuirass.in b/bin/cuirass.in
index 88813b8..ced9c54 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -83,9 +83,8 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
                                      (primitive-load specfile)))))
                    (for-each (λ (spec) (db-add-specification db spec))
                              new-specs)))
-            (let ((specs (db-get-specifications db)))
-              (if one-shot?
-                  (process-specs db specs)
-                  (while #t
-                    (process-specs db specs)
-                    (sleep interval)))))))))))
+            (if one-shot?
+                (process-specs db (db-get-specifications db))
+                (while #t
+                  (process-specs db (db-get-specifications db))
+                  (sleep interval))))))))))
-- 
cgit v1.2.3