Resolved merge.

[factor.git] / basis / tools / completion / completion.factor

diff --git a/basis/tools/completion/completion.factor b/basis/tools/completion/completion.factor
index 00d86a1608df9e4811d208c0274614709ed17ed3..c8fd3a6658a2b8547e8c7b0f9d876273e8353b52 100644 (file)
--- a/basis/tools/completion/completion.factor
+++ b/basis/tools/completion/completion.factor
@@ -24,7 +24,7 @@ IN: tools.completion
             2dup number=
             [ drop ] [ nip V{ } clone pick push ] if
             1+
-        ] keep pick peek push
+        ] keep pick last push
     ] each ;
 
 : runs ( seq -- newseq )
@@ -78,4 +78,4 @@ IN: tools.completion
     all-vocabs-seq name-completions ;
 
 : chars-matching ( str -- seq )
-    name-map keys dup zip completions ;
\ No newline at end of file
+    name-map keys dup zip completions ;