diff options
| -rw-r--r-- | src/cuirass/database.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 7bbf467..63c3525 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -117,7 +117,7 @@ rows." (sqlite-bind stmt index (normalize arg))) args (iota (length args) 1)) (let ((result (sqlite-fold-right cons '() stmt))) - (sqlite-finalize stmt) + (sqlite-reset stmt) result))) (define-syntax sqlite-exec/bind @@ -1292,7 +1292,7 @@ AND (:system IS NULL (query->bind-arguments query)) (sqlite-reset stmt) (let ((rows (sqlite-fold-right cons '() stmt))) - (sqlite-finalize stmt) + (sqlite-reset stmt) (and=> (expect-one-row rows) vector->list))))) (define (db-get-builds-query-max query) @@ -1313,7 +1313,7 @@ AND (:system IS NULL (query->bind-arguments query)) (sqlite-reset stmt) (let ((rows (sqlite-fold-right cons '() stmt))) - (sqlite-finalize stmt) + (sqlite-reset stmt) (and=> (expect-one-row rows) vector->list))))) (define (db-get-builds-min eval status) |