suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove redundant statement resets

Browse Source
This commit is contained in:
Ryan Culpepper 2012-11-28 16:50:48 -05:00
parent 0ac903f527
commit c64c325a55
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/db/private/sqlite3/connection.rkt
View File

@ -77,8 +77,6 @@
(unless (eq? (get-tx-status) 'invalid)
(set-tx-status! fsym (read-tx-status)))
(unless cursor?
(HANDLE fsym (sqlite3_reset stmt))
(HANDLE fsym (sqlite3_clear_bindings stmt))
(send pst after-exec #f))
(cond [(and (pair? info) (not cursor?))
(rows-result info result)]
@ -98,8 +96,6 @@
(let ([stmt (send pst get-handle)])
(begin0 (step* fsym (get-db fsym) stmt end-box fetch-size)
(when (unbox end-box)
(HANDLE fsym (sqlite3_reset stmt))
(HANDLE fsym (sqlite3_clear_bindings stmt))
(send pst after-exec #f))))])))))
(define/private (check-statement fsym stmt cursor?)