Tweak msxml-to-csv

diff --git a/extra/msxml-to-csv/msxml-to-csv.factor b/extra/msxml-to-csv/msxml-to-csv.factor
index 3004324511eaa48bf76feb59d0ebbb74257689ba..839fcaaf54d30d6c4746b9a39d572c01e7f9ceff 100644 (file)
--- a/extra/msxml-to-csv/msxml-to-csv.factor
+++ b/extra/msxml-to-csv/msxml-to-csv.factor
@@ -1,8 +1,7 @@
-USING: io io.files sequences xml xml.utilities io.encodings.utf8 ;
+USING: io io.files sequences xml xml.utilities
+io.encodings.ascii kernel ;
 IN: msxml-to-csv
 
-: print-csv ( table -- ) [ "," join print ] each ;
-
 : (msxml>csv) ( xml -- table )
     "Worksheet" tag-named
     "Table" tag-named
@@ -12,7 +11,6 @@ IN: msxml-to-csv
         ] map
     ] map ;
 
-: msxml>csv ( infile outfile -- )
-    utf8 [
-        file>xml (msxml>csv) print-csv
-    ] with-file-writer ;
+: msxml>csv ( outfile infile -- )
+    file>xml (msxml>csv) [ "," join ] map
+    swap ascii set-file-lines ;