tools.completion: more <PRIVATE> words.

basis/tools/completion/completion.factor

@@ -15,8 +15,6 @@ IN: tools.completion
     rot [ ch>lower ] [ ch>upper ] bi
     '[ dup _ eq? [ drop t ] [ _ eq? ] if ] find-from drop ;
 
-PRIVATE>
-
 :: (fuzzy) ( accum i full ch -- accum i ? )
     ch i full smart-index-from [
         [ accum push ]
@@ -25,10 +23,14 @@ PRIVATE>
         f -1 f
     ] if* ;
 
+PRIVATE>
+
 : fuzzy ( full short -- indices )
     dup [ length <vector> 0 ] curry 2dip
     [ (fuzzy) ] with all? 2drop ;
 
+<PRIVATE
+
 : (runs) ( runs n seq -- runs n )
     [
         [
@@ -38,9 +40,13 @@ PRIVATE>
         ] keep pick last push
     ] each ;
 
+PRIVATE>
+
 : runs ( seq -- newseq )
     [ V{ } clone 1vector ] dip [ first ] keep (runs) drop ;
 
+<PRIVATE
+
 : score-1 ( i full -- n )
     {
         { [ over zero? ] [ 2drop 10 ] }
@@ -50,6 +56,8 @@ PRIVATE>
         [ 2drop 1 ]
     } cond ;
 
+PRIVATE>
+
 : score ( full fuzzy -- n )
     dup [
         [ [ length ] bi@ - 15 swap [-] 3 /f ] 2keep
@@ -72,12 +80,16 @@ PRIVATE>
     [ <reversed> ] bi@
     dupd fuzzy score max ;
 
+<PRIVATE
+
 : completion ( short candidate -- result )
     [ second swap complete ] keep 2array ;
 
 : completion, ( short candidate -- )
     completion dup first 0 > [ , ] [ drop ] if ;
 
+PRIVATE>
+
 : completions ( short candidates -- seq )
     [ ] [
         [ [ completion, ] with each ] { } make