simple-flat-file: faster drop-comments.

2017-02-02 16:03:01 -08:00 · 2017-02-02 16:03:01 -08:00 · 88f661936e
parent 665c6587a9
commit 88f661936e
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
@ -6,7 +6,7 @@ splitting ;
 IN: simple-flat-file

 : drop-comments ( seq -- newseq )
-    [ "#@" split first ] map harvest ;
+    [ dup [ "#@" member? ] find drop [ head ] when* ] map harvest ;

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