From c7e7f4f8b4bfce2be311bf48f2e914b565df137d Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 2 Sep 2008 01:54:07 -0500 Subject: [PATCH] new accessors --- extra/db/sqlite/sqlite.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/db/sqlite/sqlite.factor b/extra/db/sqlite/sqlite.factor index 794ff5bacd..231b60e083 100755 --- a/extra/db/sqlite/sqlite.factor +++ b/extra/db/sqlite/sqlite.factor @@ -52,12 +52,12 @@ M: sqlite-result-set dispose ( result-set -- ) handle>> [ sqlite3_reset drop ] [ sqlite3_clear_bindings drop ] bi ; M: sqlite-statement low-level-bind ( statement -- ) - [ statement-bind-params ] [ statement-handle ] bi + [ bind-params>> ] [ handle>> ] bi [ swap [ key>> ] [ value>> ] [ type>> ] tri sqlite-bind-type ] curry each ; M: sqlite-statement bind-statement* ( statement -- ) sqlite-maybe-prepare - dup statement-bound? [ dup reset-bindings ] when + dup bound?>> [ dup reset-bindings ] when low-level-bind ; GENERIC: sqlite-bind-conversion ( tuple obj -- array )