setup-next-url ( spider -- spider spider-result )

Vocabulary

spider.private

Inputs

spider

an object

Outputs

spider	an object
spider-result	an object

Definition

USING: accessors kernel spider spider.unique-deque ;

IN: spider.private

: setup-next-url ( spider -- spider spider-result )
    dup todo>> peek-url url>> >>currently-spidering
    dup todo>> pop-url [ url>> ] [ depth>> ] bi <spider-result>
    ;