diff --git a/extra/spider/spider.factor b/extra/spider/spider.factor index 39ee3b5d7b..49d6c33f8f 100644 --- a/extra/spider/spider.factor +++ b/extra/spider/spider.factor @@ -15,13 +15,6 @@ filters spidered todo nonmatching quiet currently-spidering TUPLE: spider-result url depth headers fetched-in parsed-html links processed-in fetched-at ; -TUPLE: todo-url url depth ; - -: ( url depth -- todo-url ) - todo-url new - swap >>depth - swap >>url ; - : ( base -- spider ) >url spider new diff --git a/extra/spider/unique-deque/unique-deque.factor b/extra/spider/unique-deque/unique-deque.factor index 28d92633d1..ad46abdad3 100644 --- a/extra/spider/unique-deque/unique-deque.factor +++ b/extra/spider/unique-deque/unique-deque.factor @@ -3,6 +3,13 @@ USING: accessors assocs deques dlists kernel spider ; IN: spider.unique-deque +TUPLE: todo-url url depth ; + +: ( url depth -- todo-url ) + todo-url new + swap >>depth + swap >>url ; + TUPLE: unique-deque assoc deque ; : ( -- unique-deque )