diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/clam.boot | 8 | ||||
| -rw-r--r-- | src/interp/sys-globals.boot | 9 |
2 files changed, 4 insertions, 13 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() diff --git a/src/interp/sys-globals.boot b/src/interp/sys-globals.boot index b956bfdf..c2e13a16 100644 --- a/src/interp/sys-globals.boot +++ b/src/interp/sys-globals.boot @@ -449,15 +449,6 @@ $formulaOutputStream := conOutStream := MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" -$InputStream := - MAKE_-SYNONYM_-STREAM "*STANDARD-INPUT*" - -$OutputStream := - MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" - -$ErrorStream := - MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" - --% ++ True if we are building the system algebra. |