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

[factor.git] / extra / html / parser / analyzer / analyzer.factor

diff --git a/extra/html/parser/analyzer/analyzer.factor b/extra/html/parser/analyzer/analyzer.factor
index 1487fb9d36ec0db89d29342e78a73ffafe7f01b2..e48f09d6608bf97d771c5a51d63c7104fb26832b 100644 (file)
--- a/extra/html/parser/analyzer/analyzer.factor
+++ b/extra/html/parser/analyzer/analyzer.factor
@@ -179,7 +179,7 @@ ERROR: undefined-find-nth m n seq quot ;
     [ bl bl bl bl [ write "=" write ] [ write bl ] bi* nl ] assoc-each ;
 
 : form. ( vector -- )
-    [ closing?>> not ] filter
+    [ closing?>> ] reject
     [
         {
             { [ dup name>> "form" = ]