diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-02-08 11:46:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-02-08 14:19:19 +0100 |
| commit | 53fcecd25f3ab8dd1b394c4c75fa509fe51fd24d (patch) | |
| tree | 3d8dc917b795e035934cf185590cd2ef54ef2110 /src/cuirass/database.scm | |
| parent | eb01f46987a583f0bce94de230d749b1d8f16b99 (diff) | |
| download | cuirass-53fcecd25f3ab8dd1b394c4c75fa509fe51fd24d.tar cuirass-53fcecd25f3ab8dd1b394c4c75fa509fe51fd24d.tar.gz | |
database: Cache prepared statements.
Suggested by Danny Milosavljevic.
* src/cuirass/database.scm (sqlite-exec): Pass #:cache? to
'sqlite-prepare'.
Diffstat (limited to 'src/cuirass/database.scm')
| -rw-r--r-- | src/cuirass/database.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index c3310da..67a0d08 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -62,7 +62,7 @@ rows." (object->string arg) arg)) - (let ((stmt (sqlite-prepare db sql))) + (let ((stmt (sqlite-prepare db sql #:cache? #t))) (for-each (lambda (arg index) (sqlite-bind stmt index (normalize arg))) args (iota (length args) 1)) |