cuirass: Check specifications from the database inside the loop.

* bin/cuirass (main): Remove 'let' before main loop.
2016-10-27 12:48:21 +02:00 · 2016-10-27 12:48:21 +02:00 · 3b72a158be
parent 24d4505507
commit 3b72a158be
1 changed files with 5 additions and 6 deletions
--- 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))))))))))