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 | |
| parent | 94c6cd6e946964b3710dbe24dbca7c44a36beee0 (diff) | |
| download | open-axiom-fb3bb6231462cddfb70301ea1672ebc04c8e829a.tar.gz | |
more cleanups
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. |