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

limited-completions now gives you the most relevant completions if there are too many, instead of just giving back the empty list

db4
Slava Pestov 2008-11-19 16:02:43 -06:00
parent cdf7436667
commit 84d1a91966
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -72,7 +72,9 @@ IN: tools.completion
] if ; ] if ;
: string-completions ( short strs -- seq ) : string-completions ( short strs -- seq )
[ dup ] { } map>assoc completions ; dup zip completions ;
: limited-completions ( short candidates -- seq ) : limited-completions ( short candidates -- seq )
completions dup length 1000 > [ drop f ] when ; [ completions ] [ drop ] 2bi
2dup [ length 50 > ] [ empty? ] bi* and
[ 2drop f ] [ drop 50 short head ] if ;