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 d1042818f7ca6f78fcd911b708a3f0b807286382..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