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

simple-flat-file: revert for now, caused bootstrap problems.

db4
John Benediktsson 2012-07-17 09:45:43 -07:00
parent 4eeafea8be
commit 0c46a1834b
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

@ -5,7 +5,7 @@ biassocs ascii namespaces arrays make assocs interval-maps sets ;
IN: simple-flat-file IN: simple-flat-file
: drop-comments ( seq -- newseq ) : drop-comments ( seq -- newseq )
[ "#@" split1 drop ] map harvest ; [ "#@" split first ] 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 ;