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/clam.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/clam.boot')
| -rw-r--r-- | src/interp/clam.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index 8fe02a93..0da5ffd9 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -183,7 +183,7 @@ compHash(op,argl,body,cacheNameOrNil,eqEtc,countFl) == if null argl then null cacheNameOrNil => keyedSystemError("S2GE0011",[op]) nil - (not cacheNameOrNil) and not (eqEtc in '(EQ CVEC UEQUAL)) => + (not cacheNameOrNil) and not (eqEtc in '(EQ EQL EQUAL CVEC UEQUAL)) => keyedSystemError("S2GE0012",[op]) --withWithout := (countFl => "with"; "without") --middle:= @@ -270,7 +270,7 @@ compHash(op,argl,body,cacheNameOrNil,eqEtc,countFl) == weakStrong:= (countFl => 'STRONG; 'WEAK) --note: WEAK means that key/value pairs disappear at garbage collection cacheResetCode:= - ['SETQ,cacheName,['MAKE_-HASHTABLE,MKQ eqEtc]] + ['SETQ,cacheName,['hashTable,MKQ eqEtc]] cacheCountCode:= ['hashCount,cacheName] cacheVector:= mkCacheVec(op,cacheName,cacheType,cacheResetCode,cacheCountCode) |