From 3b72a158beee22cec7651c8c2105648f44475bd8 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Thu, 27 Oct 2016 12:48:21 +0200 Subject: [PATCH] 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(-) 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))))))))))