Merge branch 'master' into unicode-12.1.0
commit
1dc2ed36fb
|
@ -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! ;
|
||||||
|
|
Loading…
Reference in New Issue