diff options
author | dos-reis <gdr@axiomatics.org> | 2011-09-30 12:49:45 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-09-30 12:49:45 +0000 |
commit | 09ad07bc33ad4ce8d7e4ac1f9e5bb5e7cb9a9498 (patch) | |
tree | 1e856a205222688e4e05c7521f21e6166bb7fbfd /src/interp/guess.boot | |
parent | 1dad9f2ee595ae4255a7afecc249c4d4a02e148a (diff) | |
download | open-axiom-09ad07bc33ad4ce8d7e4ac1f9e5bb5e7cb9a9498.tar.gz |
* 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.
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 |