factor: trim using lists

[factor.git] / basis / db / pools / pools.factor

diff --git a/basis/db/pools/pools.factor b/basis/db/pools/pools.factor
index 8bc5e87f0ea4ef26f17fed72410746c70e9c4306..01d02c1dfb4b6e992f6dc62dcedd183e5bce5970 100644 (file)
--- a/basis/db/pools/pools.factor
+++ b/basis/db/pools/pools.factor
@@ -1,7 +1,6 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel arrays namespaces sequences continuations
-io.pools db fry ;
+USING: accessors db io.pools kernel namespaces ;
 IN: db.pools
 
 TUPLE: db-pool < pool db ;
@@ -13,8 +12,8 @@ TUPLE: db-pool < pool db ;
 : with-db-pool ( db quot -- )
     [ <db-pool> ] dip with-pool ; inline
 
-M: db-pool make-connection ( pool -- )
+M: db-pool make-connection
     db>> db-open ;
 
 : with-pooled-db ( pool quot -- )
-    '[ db _ with-variable ] with-pooled-connection ; inline
+    '[ db-connection _ with-variable ] with-pooled-connection ; inline