simple-flat-file: 1.3s -> 300ms for parsing the unicode txt file.

Somehow it's spending a ton of time in <string> if split-; is not inlined.
2019-07-07 11:01:41 -05:00 · 2019-07-07 11:01:41 -05:00 · eb25325f87
parent 81f2e9a0a7
commit eb25325f87
1 changed files with 1 additions and 1 deletions
--- a/basis/simple-flat-file/simple-flat-file.factor
+++ b/basis/simple-flat-file/simple-flat-file.factor
@ -30,7 +30,7 @@ IN: simple-flat-file
    utf8 file-lines process-codetable-lines >biassoc ;

 : split-; ( line -- array )
-    ";" split [ [ blank? ] trim ] map! ;
+    ";" split [ [ blank? ] trim ] map! ; inline

 : load-data-file ( filename -- data )
    utf8 file-lines drop-comments [ split-; ] map! ;