From dbd0f865e5a78c91cef92ee21739b4141d05c983 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 17 Dec 2008 23:35:46 -0600
Subject: [PATCH] furnace.db: update for Doug's db fixes

---
 basis/furnace/alloy/alloy-docs.factor | 4 ++--
 basis/furnace/db/db-docs.factor       | 2 +-
 basis/furnace/db/db.factor            | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/basis/furnace/alloy/alloy-docs.factor b/basis/furnace/alloy/alloy-docs.factor
index f108428c90..f21fc237a8 100644
--- a/basis/furnace/alloy/alloy-docs.factor
+++ b/basis/furnace/alloy/alloy-docs.factor
@@ -5,7 +5,7 @@ HELP: init-furnace-tables
 { $description "Initializes database tables used by asides, conversations and session management. This word must be invoked inside a " { $link with-db } " scope." } ;
 
 HELP: <alloy>
-{ $values { "responder" "a responder" } { "db" db } { "responder'" "an alloy responder" } }
+{ $values { "responder" "a responder" } { "db" "a database descriptor" } { "responder'" "an alloy responder" } }
 { $description "Wraps the responder with support for asides, conversations, sessions and database persistence." }
 { $examples
     "The " { $vocab-link "webapps.counter" } " vocabulary uses an alloy to configure the counter:"
@@ -21,7 +21,7 @@ HELP: <alloy>
 } ;
 
 HELP: start-expiring
-{ $values { "db" db } }
+{ $values { "db" "a database descriptor" } }
 { $description "Starts a timer which expires old session state from the given database." } ;
 
 ARTICLE: "furnace.alloy" "Furnace alloy responder"
diff --git a/basis/furnace/db/db-docs.factor b/basis/furnace/db/db-docs.factor
index a7ef02b77f..c64356c812 100644
--- a/basis/furnace/db/db-docs.factor
+++ b/basis/furnace/db/db-docs.factor
@@ -3,7 +3,7 @@ IN: furnace.db
 
 HELP: <db-persistence>
 { $values
-     { "responder" "a responder" } { "db" db }
+     { "responder" "a responder" } { "db" "a database descriptor" }
      { "responder'" db-persistence }
 }
 { $description "Wraps a responder with database persistence support. The responder's " { $link call-responder* } " method will run in a " { $link with-db } " scope." } ;
diff --git a/basis/furnace/db/db.factor b/basis/furnace/db/db.factor
index ed18e42a4f..d771d1d2d7 100644
--- a/basis/furnace/db/db.factor
+++ b/basis/furnace/db/db.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel accessors continuations namespaces destructors
-db db.pools io.pools http.server http.server.filters ;
+db db.private db.pools io.pools http.server http.server.filters ;
 IN: furnace.db
 
 TUPLE: db-persistence < filter-responder pool ;
@@ -12,6 +12,6 @@ TUPLE: db-persistence < filter-responder pool ;
 M: db-persistence call-responder*
     [
         pool>> [ acquire-connection ] keep
-        [ return-connection-later ] [ drop db set ] 2bi
+        [ return-connection-later ] [ drop db-connection set ] 2bi
     ]
     [ call-next-method ] bi ;