factor: trim using lists

[factor.git] / extra / spider / spider.factor

diff --git a/extra/spider/spider.factor b/extra/spider/spider.factor
index 933ad8364f9ccf8738b95251a99d8de9290a72ff..4669525e5ad7a3b5ecfabb03f974fe0bae5c62be 100644 (file)
--- a/extra/spider/spider.factor
+++ b/extra/spider/spider.factor
@@ -1,12 +1,10 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors fry html.parser html.parser.analyzer
-http.client kernel tools.time sets assocs sequences
-concurrency.combinators io threads namespaces math multiline
-math.parser inspector urls logging combinators.short-circuit
-continuations calendar prettyprint dlists deques locals
-spider.unique-deque combinators concurrency.semaphores
-io.pathnames ;
+USING: accessors assocs calendar combinators.short-circuit
+concurrency.semaphores deques html.parser html.parser.analyzer
+http.client inspector io io.pathnames kernel logging math
+math.parser prettyprint sequences sets spider.unique-deque
+threads tools.time urls ;
 IN: spider
 
 TUPLE: spider
@@ -49,7 +47,7 @@ fetched-in parsed-html links processed-in fetched-at ;
 
 : apply-filters ( links spider -- links' )
     filters>> [
-        '[ _ 1&& ] filter
+        '[ [ _ 1&& ] filter ] call( seq -- seq' )
     ] when* ;
 
 : push-links ( links level unique-deque -- )