spider: reuse url ref inside fill-spidered-result.

diff --git a/extra/spider/spider.factor b/extra/spider/spider.factor
index edafd617f26627daff4ac461f8e1c6caa8cba644..cb30fb6a29dd7851c37fad46b2c9d7dd526ddd4c 100644 (file)
--- a/extra/spider/spider.factor
+++ b/extra/spider/spider.factor
@@ -90,8 +90,9 @@ fetched-in parsed-html links processed-in fetched-at ;
     path>> file-extension { ".htm" ".html" f } member? ;
 
 :: fill-spidered-result ( spider spider-result -- )
-    f spider-result url>> dup :> url spider spidered>> set-at
-    [ spider-result url>> http-get ] benchmark :> ( headers html fetched-in )
+    spider-result url>> :> url
+    f url spider spidered>> set-at
+    [ url http-get ] benchmark :> ( headers html fetched-in )
     [
         url url-html? [
             html parse-html