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

2012-07-17 09:45:43 -07:00 · 2012-07-17 09:45:43 -07:00 · 0c46a1834b
parent 4eeafea8be
commit 0c46a1834b
1 changed files with 1 additions and 1 deletions
--- a/basis/simple-flat-file/simple-flat-file.factor
+++ b/basis/simple-flat-file/simple-flat-file.factor
@ -5,7 +5,7 @@ biassocs ascii namespaces arrays make assocs interval-maps sets ;
 IN: simple-flat-file

 : drop-comments ( seq -- newseq )
-    [ "#@" split1 drop ] map harvest ;
+    [ "#@" split first ] map harvest ;

 : split-column ( line -- columns )
    " \t" split harvest 2 short head 2 f pad-tail ;