Clean up some <file-reader> usages to use file-lines, file>csv, and file>xml instead

[factor.git] / extra / benchmark / xml / xml.factor

diff --git a/extra/benchmark/xml/xml.factor b/extra/benchmark/xml/xml.factor
index 5f8955b97c7a847e8eace917e81758d0a4e89237..0450331ddfbfc56754804c0ff6d8c5a0a700cec4 100644 (file)
--- a/extra/benchmark/xml/xml.factor
+++ b/extra/benchmark/xml/xml.factor
@@ -6,7 +6,7 @@ IN: benchmark.xml
 
 : xml-benchmark ( -- )
     "vocab:xmode/modes/" [
-        [ utf8 <file-reader> read-xml drop ] each
+        [ file>xml drop ] each
     ] with-directory-files ;
 
 MAIN: xml-benchmark