steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
clean-macosx-x86-32
Doug Coleman 2019-07-07 11:01:41 -05:00
parent 81f2e9a0a7
commit eb25325f87
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/simple-flat-file/simple-flat-file.factor
View File

@ -30,7 +30,7 @@ IN: simple-flat-file
utf8 file-lines process-codetable-lines >biassoc ; utf8 file-lines process-codetable-lines >biassoc ;
: split-; ( line -- array ) : split-; ( line -- array )
";" split [ [ blank? ] trim ] map! ; ";" split [ [ blank? ] trim ] map! ; inline
: load-data-file ( filename -- data ) : load-data-file ( filename -- data )
utf8 file-lines drop-comments [ split-; ] map! ; utf8 file-lines drop-comments [ split-; ] map! ;