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/clam.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/clam.boot')
| -rw-r--r-- | src/interp/clam.boot | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index 14a3d04b..3bde0e83 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -365,7 +365,7 @@ clearCategoryCache catName == symbolValue(mkCacheName catName) := nil displayHashtable x == - l:= reverse! SORTBY('CAR,[[opOf tableValue(x,key),key] for key in HKEYS x]) + l:= reverse! SORTBY('CAR,[[opOf val,key] for [key,:val] in entries x]) for [a,b] in l repeat sayBrightlyNT ['"%b",a,'"%d"] pp b @@ -405,7 +405,7 @@ mkCircularCountAlist(cl,len) == reportHashCacheStats fn == infovec:= property(fn,'cacheInfo) ht := eval infovec.cacheName - hashValues:= [tableValue(ht,key) for key in HKEYS ht] + hashValues:= [val for [.,:val] in entries ht] sayBrightly [:bright fn,'"has",:bright(# hashValues),'"values cached."] displayCacheFrequency mkHashCountAlist hashValues TERPRI() @@ -568,8 +568,8 @@ recordInstantiation1(op,prop,dropIfTrue) == reportInstantiations() == --assumed to be a hashtable with reference counts conList:= - [:[[n,m,[key,:argList]] for [argList,n,:m] in tableValue($instantRecord,key)] - for key in HKEYS $instantRecord] + [:[[n,m,[key,:argList]] for [argList,n,:m] in item] + for [key,:item] in entries $instantRecord] sayBrightly ['"# instantiated/# dropped/domain name", "%l",'"------------------------------------"] nTotal:= mTotal:= rTotal := nForms:= 0 @@ -664,9 +664,7 @@ lassocShiftQ(x,l) == globalHashtableStats(x,sortFn) == --assumed to be a hashtable with reference counts - keys:= HKEYS x - for key in keys repeat - u:= tableValue(x,key) + for [key,:u] in entries x repeat for [argList,n,:.] in u repeat not integer? n => keyedSystemError("S2GE0013",[x]) argList1:= [constructor2ConstructorForm x for x in argList] |