update with-db usages

diff --git a/basis/db/pools/pools.factor b/basis/db/pools/pools.factor
index 45f37f8f7c5c173ba8eaed5bf022bff42db388f4..8bc5e87f0ea4ef26f17fed72410746c70e9c4306 100644 (file)
--- a/basis/db/pools/pools.factor
+++ b/basis/db/pools/pools.factor
@@ -6,13 +6,12 @@ IN: db.pools
 
 TUPLE: db-pool < pool db ;
 
-: <db-pool> ( params db -- pool )
+: <db-pool> ( db -- pool )
     db-pool <pool>
-        swap >>db
-        swap >>params ;
+        swap >>db ;
 
-: with-db-pool ( db params quot -- )
-    >r <db-pool> r> with-pool ; inline
+: with-db-pool ( db quot -- )
+    [ <db-pool> ] dip with-pool ; inline
 
 M: db-pool make-connection ( pool -- )
     db>> db-open ;

diff --git a/basis/furnace/alloy/alloy.factor b/basis/furnace/alloy/alloy.factor
index decee690a31f46798f97e27a5e6f42c5c9fe8440..128ec448b72aea914b51e127f0bba377e186d273 100644 (file)
--- a/basis/furnace/alloy/alloy.factor
+++ b/basis/furnace/alloy/alloy.factor
@@ -17,19 +17,17 @@ IN: furnace.alloy
     state-classes ensure-tables
     user ensure-table ;
 
-: <alloy> ( responder db params -- responder' )
-    [ [ init-furnace-tables ] with-db ]
+: <alloy> ( responder db -- responder' )
+    [ [ init-furnace-tables ] with-db ] keep
     [
-        [
-            <asides>
-            <conversations>
-            <sessions>
-        ] 2dip
-        <db-persistence>
-        <check-form-submissions>
-    ] 2bi ;
+        <asides>
+        <conversations>
+        <sessions>
+    ] dip
+    <db-persistence>
+    <check-form-submissions> ;
 
-: start-expiring ( db params -- )
+: start-expiring ( db -- )
     '[
-        _ _ [ state-classes [ expire-state ] each ] with-db
+        _ [ state-classes [ expire-state ] each ] with-db
     ] 5 minutes every drop ;

diff --git a/basis/furnace/auth/providers/db/db-tests.factor b/basis/furnace/auth/providers/db/db-tests.factor
index fac5c23e4a013a541d711c2786e507fec3b1acdc..3bcd82a15dbb7b127abb3f414c5131bede3732a5 100755 (executable)
--- a/basis/furnace/auth/providers/db/db-tests.factor
+++ b/basis/furnace/auth/providers/db/db-tests.factor
@@ -11,7 +11,7 @@ io.files accessors kernel ;
 \r
 [ "auth-test.db" temp-file delete-file ] ignore-errors\r
 \r
-"auth-test.db" temp-file sqlite-db [\r
+"auth-test.db" temp-file <sqlite-db> [\r
 \r
     user ensure-table\r
 \r

diff --git a/basis/furnace/db/db.factor b/basis/furnace/db/db.factor
index b4a438601500d774f139925fb761746b2c92e8c8..ed18e42a4fe8c767aa26d34ffd8eff65dc91a432 100755 (executable)
--- a/basis/furnace/db/db.factor
+++ b/basis/furnace/db/db.factor
@@ -6,7 +6,7 @@ IN: furnace.db
 \r
 TUPLE: db-persistence < filter-responder pool ;\r
 \r
-: <db-persistence> ( responder params db -- responder' )\r
+: <db-persistence> ( responder db -- responder' )\r
     <db-pool> db-persistence boa ;\r
 \r
 M: db-persistence call-responder*\r

diff --git a/basis/furnace/sessions/sessions-tests.factor b/basis/furnace/sessions/sessions-tests.factor
index ff089a92b22265719bc15d9e377c5578f4a1dc82..6bb3c1cd6927bdfa73c949184a9bf7355d9e9294 100755 (executable)
--- a/basis/furnace/sessions/sessions-tests.factor
+++ b/basis/furnace/sessions/sessions-tests.factor
@@ -48,9 +48,9 @@ M: foo call-responder*
     <action>\r
         [ [ ] "text/plain" <content> exit-with ] >>display ;\r
 \r
-[ "auth-test.db" temp-file sqlite-db delete-file ] ignore-errors\r
+[ "auth-test.db" temp-file delete-file ] ignore-errors\r
 \r
-"auth-test.db" temp-file sqlite-db [\r
+"auth-test.db" temp-file <sqlite-db> [\r
 \r
     <request> init-request\r
     session ensure-table\r

diff --git a/basis/http/http-tests.factor b/basis/http/http-tests.factor
index 9a1421a3ad04ed5b0661b3631c9313860629348a..eb8ba34f9e44d268ddcb0fcf1ab0764dc3876a94 100755 (executable)
--- a/basis/http/http-tests.factor
+++ b/basis/http/http-tests.factor
@@ -182,7 +182,7 @@ http.server.dispatchers db.tuples ;
         [ stop-server "Goodbye" "text/html" <content> ] >>display
     "quit" add-responder ;
 
-: test-db "test.db" temp-file sqlite-db ;
+: test-db "test.db" temp-file <sqlite-db> ;
 
 [ test-db drop delete-file ] ignore-errors
 

diff --git a/extra/webapps/planet/planet.factor b/extra/webapps/planet/planet.factor
index 00d843573cc0eba8a7498a4641dbbf98621ac131..6c097d7faaeec2314d08b090cc65131d41c280f3 100755 (executable)
--- a/extra/webapps/planet/planet.factor
+++ b/extra/webapps/planet/planet.factor
@@ -195,5 +195,5 @@ posting "POSTINGS"
     <boilerplate>
         { planet "planet-common" } >>template ;
 
-: start-update-task ( db params -- )
-    '[ _ _ [ update-cached-postings ] with-db ] 10 minutes every drop ;
+: start-update-task ( db -- )
+    '[ _ [ update-cached-postings ] with-db ] 10 minutes every drop ;

diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor
index 5553fda740cbd8174d8736bd00ed1cb6b490c265..aa99493fa60fb60034054937e50092a63f1af5b7 100644 (file)
--- a/extra/websites/concatenative/concatenative.factor
+++ b/extra/websites/concatenative/concatenative.factor
@@ -26,7 +26,7 @@ webapps.user-admin
 webapps.help ;
 IN: websites.concatenative
 
-: test-db ( -- params db ) "resource:test.db" sqlite-db ;
+: test-db ( -- params db ) "resource:test.db" <sqlite-db> ;
 
 : init-factor-db ( -- )
     test-db [