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

[factor.git] / basis / xml / writer / writer.factor

diff --git a/basis/xml/writer/writer.factor b/basis/xml/writer/writer.factor
index 40bb5c54ec6c0e65336b96fb75eda20da2ffeba5..0243edec6fa6604a1b110d04d2062aa52f53b22e 100644 (file)
--- a/basis/xml/writer/writer.factor
+++ b/basis/xml/writer/writer.factor
@@ -34,7 +34,7 @@ SYMBOL: indentation
 : ?filter-children ( children -- no-whitespace )\r
     xml-pprint? get [\r
         [ dup string? [ [ blank? ] trim ] when ] map\r
-        [ "" = not ] filter\r
+        [ "" = ] reject\r
     ] when ;\r
 \r
 PRIVATE>\r