Skip to content
Permalink
Browse files

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.
  • Loading branch information...
erg committed Jul 7, 2019
1 parent 81f2e9a commit eb25325f879c92c13accbba4dcf834dde39671ea
Showing with 1 addition and 1 deletion.
  1. +1 −1 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! ;

0 comments on commit eb25325

Please sign in to comment.
You can’t perform that action at this time.