steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.completion: less private.

db4
John Benediktsson 2012-09-25 10:01:56 -07:00
parent bb580f2ef7
commit 4222b44ab7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/tools/completion/completion.factor
View File

@ -80,11 +80,11 @@ PRIVATE>
[ <reversed> ] bi@ [ <reversed> ] bi@
dupd fuzzy score max ; dupd fuzzy score max ;
<PRIVATE
: completion ( short candidate -- result ) : completion ( short candidate -- result )
[ second swap complete ] keep 2array ; [ second swap complete ] keep 2array ;
<PRIVATE
: completion, ( short candidate -- ) : completion, ( short candidate -- )
completion dup first 0 > [ , ] [ drop ] if ; completion dup first 0 > [ , ] [ drop ] if ;