some cleanup.

diff --git a/basis/simple-flat-file/simple-flat-file.factor b/basis/simple-flat-file/simple-flat-file.factor
index a2fa8c3c4c11e05d518a1863225e224a1d5aeb68..dfc3664a5284ebe8038952485a5c9411e30e8385 100644 (file)
--- 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 d1c418fecba5720026591276319b6f146e00c46a..c32badfaf2460de8b75dec21f77f7263e7e11b85 100644 (file)
--- 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
         ] [