From 0c46a1834b4b981a9d709a65df27589150d14b01 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 17 Jul 2012 09:45:43 -0700 Subject: [PATCH] simple-flat-file: revert for now, caused bootstrap problems. --- basis/simple-flat-file/simple-flat-file.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/simple-flat-file/simple-flat-file.factor b/basis/simple-flat-file/simple-flat-file.factor index dfc3664a52..a2fa8c3c4c 100644 --- 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 ;