diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-10-27 12:48:21 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-11-03 00:20:06 +0100 |
| commit | 3b72a158beee22cec7651c8c2105648f44475bd8 (patch) | |
| tree | 6971181ac30215b90a49a89393bc3fbb8ffb056f | |
| parent | 24d45055077911fb92aaa67762d442af44d20403 (diff) | |
| download | cuirass-3b72a158beee22cec7651c8c2105648f44475bd8.tar cuirass-3b72a158beee22cec7651c8c2105648f44475bd8.tar.gz | |
cuirass: Check specifications from the database inside the loop.
* bin/cuirass (main): Remove 'let' before main loop.
| -rw-r--r-- | bin/cuirass.in | 11 |
1 files 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)))))))))) |