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 843f13361bd0b0bb140cc09bae526f6f71689423..0243edec6fa6604a1b110d04d2062aa52f53b22e 100644 (file)
--- a/basis/xml/writer/writer.factor
+++ b/basis/xml/writer/writer.factor
@@ -19,7 +19,7 @@ SYMBOL: indentation
 \r
 : indent-string ( -- string )\r
     xml-pprint? get\r
-    [ indentation get indenter get <repetition> concat ]\r
+    [ indentation get indenter get <repetition> "" concat-as ]\r
     [ "" ] if ;\r
 \r
 : ?indent ( -- )\r
@@ -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