spider: simplify apply-filters.

locals-and-roots
John Benediktsson 2016-03-28 22:26:12 -07:00
parent 864912f446
commit be2b048920
1 changed files with 1 additions and 1 deletions

View File

@ -49,7 +49,7 @@ fetched-in parsed-html links processed-in fetched-at ;
: apply-filters ( links spider -- links' )
filters>> [
'[ [ _ 1&& ] filter ] call( seq -- seq' )
'[ _ 1&& ] filter
] when* ;
: push-links ( links level unique-deque -- )