fix deriving urls in spider

2009-04-03 20:05:19 -05:00 · 2009-04-03 20:05:19 -05:00 · 4c7b2f9337
parent c97ca399d8
commit 4c7b2f9337
1 changed files with 1 additions and 1 deletions
--- a/extra/spider/spider.factor
+++ b/extra/spider/spider.factor
@ -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