From 284511a2e796953306ed66217fc8a889b5abb8f5 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Sat, 4 Apr 2009 15:47:17 -0500
Subject: [PATCH] fix load erro

---
 extra/spider/spider.factor                    | 7 -------
 extra/spider/unique-deque/unique-deque.factor | 7 +++++++
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/extra/spider/spider.factor b/extra/spider/spider.factor
index 39ee3b5d7b..49d6c33f8f 100644
--- a/extra/spider/spider.factor
+++ b/extra/spider/spider.factor
@@ -15,13 +15,6 @@ filters spidered todo nonmatching quiet currently-spidering
 TUPLE: spider-result url depth headers
 fetched-in parsed-html links processed-in fetched-at ;
 
-TUPLE: todo-url url depth ;
-
-: <todo-url> ( url depth -- todo-url )
-    todo-url new
-        swap >>depth
-        swap >>url ;
-
 : <spider> ( base -- spider )
     >url
     spider new
diff --git a/extra/spider/unique-deque/unique-deque.factor b/extra/spider/unique-deque/unique-deque.factor
index 28d92633d1..ad46abdad3 100644
--- a/extra/spider/unique-deque/unique-deque.factor
+++ b/extra/spider/unique-deque/unique-deque.factor
@@ -3,6 +3,13 @@
 USING: accessors assocs deques dlists kernel spider ;
 IN: spider.unique-deque
 
+TUPLE: todo-url url depth ;
+
+: <todo-url> ( url depth -- todo-url )
+    todo-url new
+        swap >>depth
+        swap >>url ;
+
 TUPLE: unique-deque assoc deque ;
 
 : <unique-deque> ( -- unique-deque )