diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-13 14:47:31 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-13 14:47:31 +0000 |
commit | 8f2bad3b8cea97189a9e842ed0f78559aa4be795 (patch) | |
tree | f355c7ba0711e9cf0e243eecb0be62faf1468347 /src/interp/br-data.boot | |
parent | 348cdc0022cf9aaf0fc5491ed8d899a7284e07ec (diff) | |
download | open-axiom-8f2bad3b8cea97189a9e842ed0f78559aa4be795.tar.gz |
* interp/sys-utility.boot (hashTable): Define.
* interp/word.boot: Use it.
* interp/topics.boot: Likewise.
* interp/sys-driver.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/setvars.boot: Likewise.
* interp/scan.boot: Likewise.
* interp/nrunopt.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/i-toplev.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/htcheck.boot: Likewise.
* interp/guess.boot: Likewise.
* interp/g-util.boot: Likewise.
* interp/database.boot: Likewise.
* interp/compress.boot: Likewise.
* interp/clam.boot: Likewise.
* interp/cattable.boot: Likewise.
* interp/c-util.boot: Likewise.
* interp/br-op2.boot: Likewise.
* interp/br-op1.boot: Likewise.
* interp/br-con.boot: Likewise.
* interp/sys-globals.boot ($ConstructorCache): Move elsewhere.
($instantRecord): Likewise.
* algebra/newdata.spad.pamphlet: Use EQUAL as equality function
for hash table.
* algebra/table.spad.pamphlet: Call hashTable builtin function
instead of MAKE-HASHTABLE.
Diffstat (limited to 'src/interp/br-data.boot')
-rw-r--r-- | src/interp/br-data.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index d8668ed4..e5fcc1ca 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -517,7 +517,7 @@ $parentsCache := nil parentsOf con == --called by kcpPage, ancestorsRecur if null $parentsCache then - $parentsCache := MAKE_-HASHTABLE 'ID + $parentsCache := hashTable 'EQ HGET($parentsCache,con) or parents := getParentsForDomain con HPUT($parentsCache,con,parents) @@ -594,7 +594,7 @@ childArgCheck(argl, nargl) == --computeDescendantsOf cat == --dynamically generates descendants --- hash := MAKE_-HASHTABLE 'UEQUAL +-- hash := hashTable 'EQUAL -- for [child,:pred] in childrenOf cat repeat -- childForm := getConstructorForm child -- HPUT(hash,childForm,pred) @@ -618,8 +618,8 @@ ancestorsOf(conform,domform) == --called by kcaPage, originsInOrder,... computeAncestorsOf(conform,domform) computeAncestorsOf(conform,domform) == - $done: local := MAKE_-HASHTABLE 'UEQUAL - $if: local := MAKE_-HASHTABLE 'ID + $done: local := hashTable 'EQUAL + $if: local := hashTable 'EQ ancestorsRecur(conform,domform,true,true) acc := nil for op in listSort(function GLESSEQP,HKEYS $if) repeat |