From 01b47916e290051611fab4a3bda6343c4a66def4 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 6 Dec 2020 10:57:57 +0000 Subject: Remove redundant reset calls sqlite-prepare will reset cached statements before returning them, so these sqlite-reset calls are redundant. --- src/cuirass/database.scm | 2 -- 1 file changed, 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))))) -- cgit v1.2.3