filter-base-links ( spider spider-result -- base-links nonmatching-links )


Vocabulary
spider.private

Inputs
spideran object
spider-resultan object


Outputs
base-linksan object
nonmatching-linksan object


Definition
USING: accessors kernel sequences sets ;

IN: spider.private

: filter-base-links
( spider spider-result -- base-links nonmatching-links )
[ base>> host>> ] [ links>> members ] bi* [ host>> = ] with
partition ;