tool.completion: ...

2012-09-25 10:34:32 -07:00 · 2012-09-25 10:34:32 -07:00 · b5d0ccf200
parent 4222b44ab7
commit b5d0ccf200
1 changed files with 0 additions and 4 deletions
--- a/basis/tools/completion/completion.factor
+++ b/basis/tools/completion/completion.factor
@ -83,13 +83,9 @@ PRIVATE>
 : completion ( short candidate -- result )
    [ second swap complete ] keep 2array ;

-<PRIVATE
-
 : completion, ( short candidate -- )
    completion dup first 0 > [ , ] [ drop ] if ;

-PRIVATE>
-
 : completions ( short candidates -- seq )
    [ ] [
        [ [ completion, ] with each ] { } make