     sqlite-close ;
 
 M: sqlite-db dispose ( db -- ) dispose-db ;
-
-: with-sqlite ( path quot -- )
-    >r <sqlite-db> r> with-db ; inline
 
 TUPLE: sqlite-statement ;
 

    f swap set-result-set-handle ;

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

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

IN: db.sqlite

TUPLE: sqlite-db path ;

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>
