From 7b9a3b61c35c78ba40794a5fac792934fc712293 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 9 Oct 2008 14:07:11 -0500
Subject: [PATCH] partial fix for db, going to make it use dispose* soon

---
 basis/db/db.factor | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/basis/db/db.factor b/basis/db/db.factor
index bf23005bc2..a124914a35 100644
--- 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 ;