extra/benchmark/xml/xml.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: io.directories kernel sequences xml ;
   4 IN: benchmark.xml
   5
   6 : xml-benchmark ( -- )
   7     "vocab:xmode/catalog/modes/" [
   8         [ file>xml drop ] each
   9     ] with-directory-files ;
  10
  11 MAIN: xml-benchmark