From 4eeafea8be2fa45e02f250e28a9fd4ad71bde9c4 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 17 Jul 2012 08:53:40 -0700 Subject: [PATCH] some cleanup. --- basis/simple-flat-file/simple-flat-file.factor | 2 +- extra/readline-listener/readline-listener.factor | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/simple-flat-file/simple-flat-file.factor b/basis/simple-flat-file/simple-flat-file.factor index a2fa8c3c4c..dfc3664a52 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 ) - [ "#@" split first ] map harvest ; + [ "#@" split1 drop ] map harvest ; : split-column ( line -- columns ) " \t" split harvest 2 short head 2 f pad-tail ; diff --git a/extra/readline-listener/readline-listener.factor b/extra/readline-listener/readline-listener.factor index d1c418fecb..c32badfaf2 100644 --- a/extra/readline-listener/readline-listener.factor +++ b/extra/readline-listener/readline-listener.factor @@ -20,10 +20,10 @@ M: readline-reader prompt. >>prompt drop ; : word-names ( -- strs ) - all-words [ name>> ] map ; + all-words [ name>> ] map! ; : vocab-names ( -- strs ) - all-vocabs-recursive filter-vocabs [ name>> ] map ; + all-vocabs-recursive filter-vocabs [ name>> ] map! ; : prefixed-words ( prefix -- words ) '[ _ head? ] word-names swap filter ; @@ -36,7 +36,7 @@ M: readline-reader prompt. : get-completions ( prefix -- completions ) completions tget dup [ nip ] [ - drop current-line " " split first + drop current-line " " split1 drop "USING:" = [ prefixed-vocabs ] [