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
basis/tools/completion

View File

@ -72,7 +72,9 @@ IN: tools.completion
] if ;
: string-completions ( short strs -- seq )
[ dup ] { } map>assoc completions ;
dup zip completions ;
: 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 ;