From c68db2228104c7406d07e751d14b07d45c8f4fbd Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 8 Dec 2013 09:15:42 -0800
Subject: [PATCH] spider: reuse url ref inside fill-spidered-result.

---
 extra/spider/spider.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/extra/spider/spider.factor b/extra/spider/spider.factor
index edafd617f2..cb30fb6a29 100644
--- 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