steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

partial fix for db, going to make it use dispose* soon

db4
Doug Coleman 2008-10-09 14:07:11 -05:00
parent 7f5af95d4e
commit 7b9a3b61c3
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/db/db.factor
View File

@ -6,6 +6,7 @@ tools.walker accessors combinators fry ;
IN: db IN: db
TUPLE: db TUPLE: db
disposed
handle handle
insert-statements insert-statements
update-statements update-statements
@ -24,12 +25,10 @@ HOOK: db-close db ( handle -- )
: db-dispose ( db -- ) : db-dispose ( db -- )
dup db [ dup db [
{ [ dispose-statements H{ } clone ] change-insert-statements
[ insert-statements>> dispose-statements ] [ dispose-statements H{ } clone ] change-update-statements
[ update-statements>> dispose-statements ] [ dispose-statements H{ } clone ] change-delete-statements
[ delete-statements>> dispose-statements ] handle>> db-close
[ handle>> db-close ]
} cleave
] with-variable ; ] with-variable ;
TUPLE: result-set sql in-params out-params handle n max ; TUPLE: result-set sql in-params out-params handle n max ;