diff options
Diffstat (limited to 'src/interp/guess.boot')
-rw-r--r-- | src/interp/guess.boot | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/interp/guess.boot b/src/interp/guess.boot index d247f49c..c4956afc 100644 --- a/src/interp/guess.boot +++ b/src/interp/guess.boot @@ -47,15 +47,14 @@ buildWordTable u == words := wordsOfString s key := charUpcase stringChar(s,0) tableValue(table,key) := [[s,:words],:tableValue(table,key)] - for key in HKEYS table repeat + for [key,:val] in entries table repeat tableValue(table,key) := listSort(function GLESSEQP,removeDupOrderedAlist - listSort(function GLESSEQP, tableValue(table,key),function first), - function second) + listSort(function GLESSEQP,val,function first),function second) table measureWordTable u == - +/[+/[#entry for entry in tableValue(u,key)] for key in HKEYS u] + +/[+/[#entry for entry in item] for [key,:item] in entries u] removeDupOrderedAlist u == -- removes duplicate entries in ordered alist |