fix deriving urls in spider

diff --git a/extra/spider/spider.factor b/extra/spider/spider.factor
index aeb4676767fae656cab4fa36d0928fb691bfe9d5..5398e32ff4a5debfc62deda8bfc009ba4b64b7a5 100644 (file)
--- 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