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/scan.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/scan.boot')
-rw-r--r-- | src/interp/scan.boot | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/interp/scan.boot b/src/interp/scan.boot index 23533311..331cac7a 100644 --- a/src/interp/scan.boot +++ b/src/interp/scan.boot @@ -183,7 +183,7 @@ scanDictCons()== for i in 0..255 repeat vectorRef(a,i) := b a - for s in HKEYS scanKeyTable repeat + for [s,:.] in entries scanKeyTable repeat scanInsert(s,d) d @@ -191,13 +191,12 @@ scanDict:=scanDictCons() scanPunCons()== - listing := HKEYS scanKeyTable a := makeBitVector 256 for i in 0..255 repeat bitmask(a,i) := 0 - for k in listing repeat - if not startsId? k.0 - then bitmask(a,codePoint stringChar(k,0)) := 1 + for [k,:.] in entries scanKeyTable repeat + if not startsId? stringChar(k,0) then + bitmask(a,codePoint stringChar(k,0)) := 1 a scanPun:=scanPunCons() |