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.
factor · Jul 7, 2019 · eb25325 · eb25325
1 parent 81f2e9a
commit eb25325
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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! ;