From fb3bb6231462cddfb70301ea1672ebc04c8e829a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 5 May 2011 11:36:37 +0000
Subject: more cleanups

---
 src/interp/clam.boot | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/interp/clam.boot')

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()
-- 
cgit v1.2.3