From 09ad07bc33ad4ce8d7e4ac1f9e5bb5e7cb9a9498 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 30 Sep 2011 12:49:45 +0000 Subject: * interp/br-data.boot (lefts): Iterate directly over table. (mkUsersHashTable): Likewise. (mkDependentsHashTable): Likewise. (domainsOf): Likewise. * interp/br-op1.boot (dbShowOpAllDomains): Likewise. * interp/cattable.boot (showCategoryTable): Likewise. (displayCategoryTable): Likewise. (simpTempCategoryTable): Likewise. (simpCategoryTable): Likewise. (genTempCategoryTable): Likewise. (compressHashTable): Likewise. (updateCategoryTableForCategory): Likewise. (clearTempCategoryTable): Likewise. * interp/clam.boot (displayHashtable): Likewise. (reportHashCacheStats): Likewise. (reportInstantiations): Likewise. (globalHashtableStats): Likewise. * interp/guess.boot (buildWordTable): Likewise. * interp/i-syscmd.boot (writify): Likewise. * interp/scan.boot (scanDictCons): Likewise. (scanPunCons): Likewise. * interp/slam.boot (hashCount): Likewise. * interp/topics.boot (mkTopicHashTable): Likewise. (addTopic2Documentation): Likewise. (topics): Likewise. (listOfTopics): Likewise. * interp/word.boot (buildWordTable): Likewise. (writeFunctionTables): Likewise. (bootSearch): Likewise. --- src/interp/guess.boot | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/interp/guess.boot') 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 -- cgit v1.2.3