factor: trim using lists

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

diff --git a/basis/io/pools/pools.factor b/basis/io/pools/pools.factor
index 1cd104da48b98bd1b1a331c912b1cea1fab41410..195c3a22dacd30682f80d7ebd9edbd809a6e561a 100644 (file)
--- a/basis/io/pools/pools.factor
+++ b/basis/io/pools/pools.factor
@@ -1,13 +1,13 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel arrays namespaces sequences continuations
-destructors io.sockets alien alien.syntax ;
+USING: accessors alien continuations destructors io.sockets
+kernel namespaces sequences ;
 IN: io.pools
 
 TUPLE: pool connections disposed expired ;
 
 : check-pool ( pool -- )
-    dup check-disposed
+    check-disposed
     dup expired>> expired? [
         31337 <alien> >>expired
         connections>> delete-all
@@ -45,7 +45,7 @@ GENERIC: make-connection ( pool -- conn )
     [ [ acquire-connection ] keep ] dip
     [ (with-pooled-connection) ] [ ] [ 2drop dispose ] cleanup ; inline
 
-M: return-connection dispose
+M: return-connection-state dispose
     [ conn>> ] [ pool>> ] bi return-connection ;
 
 : return-connection-later ( db pool -- )