diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-06 10:57:57 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-06 11:03:07 +0000 |
| commit | 01b47916e290051611fab4a3bda6343c4a66def4 (patch) | |
| tree | 790433800dbe7ae61c54fd8f09a3676bf913fe6c | |
| parent | 2f6283515360e3707aaeab66f4082d1c55da72cc (diff) | |
| download | cuirass-01b47916e290051611fab4a3bda6343c4a66def4.tar cuirass-01b47916e290051611fab4a3bda6343c4a66def4.tar.gz | |
Remove redundant reset calls
sqlite-prepare will reset cached statements before returning them, so these
sqlite-reset calls are redundant.
| -rw-r--r-- | src/cuirass/database.scm | 2 |
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))))) |