From 95aafbc188da74ec4be0373437dcfbcd440c293a Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 27 Feb 2008 13:21:06 -0600 Subject: [PATCH] some work on sqlite --- extra/db/sqlite/sqlite.factor | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/extra/db/sqlite/sqlite.factor b/extra/db/sqlite/sqlite.factor index b8e8bca300..8aba932490 100755 --- a/extra/db/sqlite/sqlite.factor +++ b/extra/db/sqlite/sqlite.factor @@ -8,7 +8,9 @@ words combinators.lib db.types combinators tools.walker ; IN: db.sqlite TUPLE: sqlite-db path ; -C: sqlite-db + +M: sqlite-db make-db* ( path db -- db ) + [ set-sqlite-db-path ] keep ; M: sqlite-db db-open ( db -- ) dup sqlite-db-path sqlite-open @@ -19,9 +21,6 @@ M: sqlite-db db-close ( handle -- ) M: sqlite-db dispose ( db -- ) dispose-db ; -: with-sqlite ( path quot -- ) - >r r> with-db ; inline - TUPLE: sqlite-statement ; TUPLE: sqlite-result-set has-more? ; @@ -47,7 +46,6 @@ M: sqlite-result-set dispose ( result-set -- ) f swap set-result-set-handle ; : sqlite-bind ( specs handle -- ) -break swap [ sqlite-bind-type ] with each ; M: sqlite-statement bind-statement* ( obj statement -- )