From e22823f2c44ba8769664178b66c2ea9f69d73705 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Tue, 31 Mar 2009 18:23:02 -0500
Subject: [PATCH] rename word

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

diff --git a/extra/spider/spider.factor b/extra/spider/spider.factor
index 42f2485ebe..0287d50692 100644
--- a/extra/spider/spider.factor
+++ b/extra/spider/spider.factor
@@ -25,7 +25,7 @@ TUPLE: unique-deque assoc deque ;
 : <unique-deque> ( -- unique-deque )
     H{ } clone <dlist> unique-deque boa ;
 
-: store-url ( url depth unique-deque -- )
+: push-url ( url depth unique-deque -- )
     [ <todo-url> ] dip
     [ [ [ t ] dip url>> ] [ assoc>> ] bi* set-at ]
     [ deque>> push-back ] 2bi ;
@@ -38,7 +38,7 @@ TUPLE: unique-deque assoc deque ;
     >url
     spider new
         over >>base
-        swap 0 <unique-deque> [ store-url ] keep >>todo
+        swap 0 <unique-deque> [ push-url ] keep >>todo
         <unique-deque> >>nonmatching
         <unique-deque> >>filtered
         0 >>max-depth
@@ -52,7 +52,7 @@ TUPLE: unique-deque assoc deque ;
     filters>> [ '[ [ _ 1&& ] filter ] call( seq -- seq' ) ] when* ;
 
 : push-links ( links level unique-deque -- )
-    '[ _ _ store-url ] each ;
+    '[ _ _ push-url ] each ;
 
 : add-todo ( links level spider -- )
     todo>> push-links ;