fix deriving urls in spider

db4
Doug Coleman 2009-04-03 20:05:19 -05:00
parent c97ca399d8
commit 4c7b2f9337
1 changed files with 1 additions and 1 deletions

View File

@ -84,7 +84,7 @@ TUPLE: unique-deque assoc deque ;
: normalize-hrefs ( links spider -- links' )
currently-spidering>> present swap
[ dup url-absolute? [ derive-url ] [ url-append-path >url ] if ] with map ;
[ [ >url ] bi@ derive-url ] with map ;
: print-spidering ( url depth -- )
"depth: " write number>string write