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

Change apropos order

slava 2006-08-12 21:13:36 +00:00
parent 41040c6a7b
commit 40f06282c2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/tools/word-tools.factor
View File

@ -88,7 +88,7 @@ math namespaces prettyprint sequences strings styles ;
: completions ( str -- seq ) : completions ( str -- seq )
all-words [ completion ] map-with [ first zero? not ] subset all-words [ completion ] map-with [ first zero? not ] subset
[ [ first ] 2apply - ] sort dup length 20 min tail* ; [ [ first ] 2apply swap - ] sort dup length 20 min head ;
: fuzzy. ( fuzzy full -- ) : fuzzy. ( fuzzy full -- )
dup length [ dup length [