spider-page? ( spider -- ? )

Vocabulary

spider.private

Inputs

spider

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit deques kernel math
spider.unique-deque ;

IN: spider.private

: spider-page? ( spider -- ? )
    {
        [ todo>> deque>> deque-empty? not ]
        [ [ todo>> peek-url depth>> ] [ max-depth>> ] bi <= ]
        [ [ count>> ] [ max-count>> ] bi < ]
    } 1&& ;