Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / extra / spider / spider.factor

diff --git a/extra/spider/spider.factor b/extra/spider/spider.factor
index 17e91473c3795df9be7dfd2f75f0705b1a1873b4..9d3aa6c65127d81da8138263dfac7d04770777b4 100644 (file)
--- a/extra/spider/spider.factor
+++ b/extra/spider/spider.factor
@@ -52,10 +52,10 @@ fetched-in parsed-html links processed-in fetched-at ;
     [ host>> = ] with partition ;
 
 : add-spidered ( spider spider-result -- )
-    [ [ 1+ ] change-count ] dip
+    [ [ 1 + ] change-count ] dip
     2dup [ spidered>> ] [ dup url>> ] bi* rot set-at
     [ filter-base-links ] 2keep
-    depth>> 1+ swap
+    depth>> 1 + swap
     [ add-nonmatching ]
     [ tuck [ apply-filters ] 2dip add-todo ] 2bi ;