xml.writer: don't write arrays to output-stream

diff --git a/basis/xml/writer/writer-tests.factor b/basis/xml/writer/writer-tests.factor
index f19e845ab926fc1cd338527824c1f449f0757d0c..2d31738c4cfdd109768f2df98b50b152af9816d9 100644 (file)
--- a/basis/xml/writer/writer-tests.factor
+++ b/basis/xml/writer/writer-tests.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2005, 2009 Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license.
-USING: xml.data xml.writer tools.test fry xml kernel multiline
+USING: xml.data xml.writer tools.test fry xml xml.syntax kernel multiline
 xml.writer.private io.streams.string xml.traversal sequences
-io.encodings.utf8 io.files accessors io.directories ;
+io.encodings.utf8 io.files accessors io.directories math math.parser ;
 IN: xml.writer.tests
 
 \ write-xml must-infer
@@ -66,3 +66,11 @@ CONSTANT: test-file "resource:basis/xml/writer/test.xml"
 [ ] [ "<?xml version='1.0' encoding='UTF-16BE'?><x/>" string>xml test-file utf8 [ write-xml ] with-file-writer ] unit-test
 [ "x" ] [ test-file file>xml body>> name>> main>> ] unit-test
 [ ] [ test-file delete-file ] unit-test
+
+[ ] [
+    { 1 2 3 4 } [
+        [ number>string ] [ sq number>string ] bi
+        [XML <tr><td><-></td><td><-></td></tr> XML]
+    ] map [XML <h2>Timings</h2> <table><-></table> XML]
+    pprint-xml
+] unit-test
\ No newline at end of file

diff --git a/basis/xml/writer/writer.factor b/basis/xml/writer/writer.factor
index 4f5bad1aa58054b97f371ae74af2820cecb45181..ab957ebc75a70c7cc1516eb265eda0b43a522831 100755 (executable)
--- 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> "" join ]\r
     [ "" ] if ;\r
 \r
 : ?indent ( -- )\r