diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-05 11:36:37 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-05 11:36:37 +0000 |
| commit | fb3bb6231462cddfb70301ea1672ebc04c8e829a (patch) | |
| tree | 316e516bc5f0920f407fdae6e54780cdbdd320f2 /src/interp/clam.boot | |
| parent | 94c6cd6e946964b3710dbe24dbca7c44a36beee0 (diff) | |
| download | open-axiom-fb3bb6231462cddfb70301ea1672ebc04c8e829a.tar.gz | |
more cleanups
Diffstat (limited to 'src/interp/clam.boot')
| -rw-r--r-- | src/interp/clam.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index cf45340d..994d882d 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -321,8 +321,8 @@ CDRwithIncrement x == x.first := first x + 1 rest x -HGETandCount(hashTable,prop) == - u:= HGET(hashTable,prop) or return nil +HGETandCount(ht,prop) == + u:= HGET(ht,prop) or return nil u.first := first u + 1 u @@ -402,8 +402,8 @@ mkCircularCountAlist(cl,len) == reportHashCacheStats fn == infovec:= property(fn,'cacheInfo) - hashTable:= eval infovec.cacheName - hashValues:= [HGET(hashTable,key) for key in HKEYS hashTable] + ht := eval infovec.cacheName + hashValues:= [HGET(ht,key) for key in HKEYS ht] sayBrightly [:bright fn,'"has",:bright(# hashValues),'"values cached."] displayCacheFrequency mkHashCountAlist hashValues TERPRI() |