use reject instead of [ ... not ] filter.

[factor.git] / extra / robots / robots.factor

diff --git a/extra/robots/robots.factor b/extra/robots/robots.factor
index 99b375da38fb28d0c0fafe59bfb6f3be9051ca40..7562c65d3c4879bdddcba6739b1af1ca9c077c35 100644 (file)
--- a/extra/robots/robots.factor
+++ b/extra/robots/robots.factor
@@ -35,7 +35,7 @@ visit-time request-rate crawl-delay unknowns ;
 : normalize-robots.txt ( string -- sitemaps seq )
     string-lines
     [ [ blank? ] trim ] map
-    [ "#" head? not ] filter harvest
+    [ "#" head? ] reject harvest
     [ ":" split1 [ [ blank? ] trim ] bi@ [ >lower ] dip  ] { } map>assoc
     [ first "sitemap" = ] partition [ values ] dip
     [