From c64c325a555813fa259970b0fe7dd2801a9dbea9 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 28 Nov 2012 16:50:48 -0500 Subject: [PATCH] remove redundant statement resets --- collects/db/private/sqlite3/connection.rkt | 4 ---- 1 file changed, 4 deletions(-) diff --git a/collects/db/private/sqlite3/connection.rkt b/collects/db/private/sqlite3/connection.rkt index 97c4f57e45..2a2c72f8d3 100644 --- a/collects/db/private/sqlite3/connection.rkt +++ b/collects/db/private/sqlite3/connection.rkt @@ -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?)