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

diff --git a/basis/db/db.factor b/basis/db/db.factor
index bf23005bc21cb975f3871bc6ff1a2dcafb18e5b8..a124914a3584aa387908c558aa0651eaa93662a3 100644 (file)
--- a/basis/db/db.factor
+++ b/basis/db/db.factor
@@ -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 ;