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
TUPLE: db
disposed
handle
insert-statements
update-statements
@ -24,12 +25,10 @@ HOOK: db-close db ( handle -- )
: db-dispose ( db -- )
dup db [
{
[ insert-statements>> dispose-statements ]
[ update-statements>> dispose-statements ]
[ delete-statements>> dispose-statements ]
[ handle>> db-close ]
} cleave
[ dispose-statements H{ } clone ] change-insert-statements
[ dispose-statements H{ } clone ] change-update-statements
[ dispose-statements H{ } clone ] change-delete-statements
handle>> db-close
] with-variable ;
TUPLE: result-set sql in-params out-params handle n max ;