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

simple-flat-file: faster drop-comments.

char-rename
John Benediktsson 2017-02-02 16:03:01 -08:00
parent 665c6587a9
commit 88f661936e
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

@ -6,7 +6,7 @@ splitting ;
IN: simple-flat-file IN: simple-flat-file
: drop-comments ( seq -- newseq ) : drop-comments ( seq -- newseq )
[ "#@" split first ] map harvest ; [ dup [ "#@" member? ] find drop [ head ] when* ] map harvest ;
: split-column ( line -- columns ) : split-column ( line -- columns )
" \t" split harvest 2 short head 2 f pad-tail ; " \t" split harvest 2 short head 2 f pad-tail ;