 IN: db.sqlite
 
 TUPLE: sqlite-db path ;
-C: <sqlite-db> 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 <db>

    f swap set-result-set-handle ;

: sqlite-bind ( specs handle -- )
break
    swap [ sqlite-bind-type ] with each ;

M: sqlite-statement bind-statement* ( obj statement -- )

    sqlite-close ;

M: sqlite-db dispose ( db -- ) dispose-db ;

TUPLE: sqlite-statement ;

