diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-07 16:08:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-07 16:08:31 +0000 |
| commit | a8b9a2f5f65820ce836353e0d25070fa8eaeece9 (patch) | |
| tree | cfd36b58073ff21151863f139c28a5342ecd6405 /src/interp/cattable.boot | |
| parent | 554f0da895913012bc9e029e9312c50650e222b2 (diff) | |
| download | open-axiom-a8b9a2f5f65820ce836353e0d25070fa8eaeece9.tar.gz | |
* algebra/table.spad.pamphlet (HashTable): Use tableValue instead
of HGET. Use tableLength instead of HCOUNT.
Diffstat (limited to 'src/interp/cattable.boot')
| -rw-r--r-- | src/interp/cattable.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot index a9a9e949..3e35fdb4 100644 --- a/src/interp/cattable.boot +++ b/src/interp/cattable.boot @@ -83,7 +83,7 @@ simpCategoryTable() == main where main() == for key in HKEYS _*HASCATEGORY_-HASH_* repeat entry := tableValue(_*HASCATEGORY_-HASH_*,key) - null entry => HREM(_*HASCATEGORY_-HASH_*,key) + null entry => tableRemove!(_*HASCATEGORY_-HASH_*,key) change := atom opOf entry => simpHasPred entry [[x,:npred] for [x,:pred] in entry | npred := simpHasPred pred] @@ -485,7 +485,7 @@ clearCategoryTable($cname) == MAPHASH('clearCategoryTable1,_*HASCATEGORY_-HASH_*) clearCategoryTable1(key,val) == - (first key=$cname)=> HREM(_*HASCATEGORY_-HASH_*,key) + (first key=$cname)=> tableRemove!(_*HASCATEGORY_-HASH_*,key) nil clearTempCategoryTable(catNames) == |