parent
927b8f29d6
commit
fbb736e28c
|
@ -49,7 +49,7 @@ fetched-in parsed-html links processed-in fetched-at ;
|
||||||
|
|
||||||
: apply-filters ( links spider -- links' )
|
: apply-filters ( links spider -- links' )
|
||||||
filters>> [
|
filters>> [
|
||||||
'[ _ 1&& ] filter
|
'[ [ _ 1&& ] filter ] call( seq -- seq' )
|
||||||
] when* ;
|
] when* ;
|
||||||
|
|
||||||
: push-links ( links level unique-deque -- )
|
: push-links ( links level unique-deque -- )
|
||||||
|
|
Loading…
Reference in New Issue