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

simple-flat-file: using map! in some places.

db4
John Benediktsson 2012-07-17 15:29:56 -07:00
parent f0698ee97f
commit ccda811114
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,19 +17,19 @@ IN: simple-flat-file
] when ; ] when ;
: parse-line ( line -- code-unicode ) : parse-line ( line -- code-unicode )
split-column [ parse-hex ] map ; split-column [ parse-hex ] map! ;
: process-codetable-lines ( lines -- assoc ) : process-codetable-lines ( lines -- assoc )
drop-comments [ parse-line ] map ; drop-comments [ parse-line ] map! ;
: flat-file>biassoc ( filename -- biassoc ) : flat-file>biassoc ( filename -- biassoc )
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! ;
: data ( filename -- data ) : data ( filename -- data )
utf8 file-lines drop-comments [ split-; ] map ; utf8 file-lines drop-comments [ split-; ] map! ;
SYMBOL: interned SYMBOL: interned