fix load erro

db4
Doug Coleman 2009-04-04 15:47:17 -05:00
parent 26dccb5b16
commit 284511a2e7
2 changed files with 7 additions and 7 deletions

View File

@ -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 ;
: <todo-url> ( url depth -- todo-url )
todo-url new
swap >>depth
swap >>url ;
: <spider> ( base -- spider )
>url
spider new

View File

@ -3,6 +3,13 @@
USING: accessors assocs deques dlists kernel spider ;
IN: spider.unique-deque
TUPLE: todo-url url depth ;
: <todo-url> ( url depth -- todo-url )
todo-url new
swap >>depth
swap >>url ;
TUPLE: unique-deque assoc deque ;
: <unique-deque> ( -- unique-deque )