push-url ( url depth unique-deque -- )

Vocabulary

spider.unique-deque

Inputs

url	an object
depth	an object
unique-deque	an object

Outputs

None

Definition

USING: accessors assocs deques kernel ;

IN: spider.unique-deque

: push-url ( url depth unique-deque -- )
    [ <todo-url> ] dip 2dup url-exists?
    [ 2drop ] [
        [ [ [ t ] dip url>> ] [ assoc>> ] bi* set-at ]
        [ deque>> push-back ] 2bi
    ] if ;