aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/cuirass/database.scm2
1 files changed, 0 insertions, 2 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 63c3525..587dc2d 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -1290,7 +1290,6 @@ AND (:system IS NULL
(stmt (sqlite-prepare db stmt-text #:cache? #t)))
(apply sqlite-bind-arguments stmt
(query->bind-arguments query))
- (sqlite-reset stmt)
(let ((rows (sqlite-fold-right cons '() stmt)))
(sqlite-reset stmt)
(and=> (expect-one-row rows) vector->list)))))
@@ -1311,7 +1310,6 @@ AND (:system IS NULL
(stmt (sqlite-prepare db stmt-text #:cache? #t)))
(apply sqlite-bind-arguments stmt
(query->bind-arguments query))
- (sqlite-reset stmt)
(let ((rows (sqlite-fold-right cons '() stmt)))
(sqlite-reset stmt)
(and=> (expect-one-row rows) vector->list)))))