diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-26 18:43:36 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 18:43:36 +0000 |
commit | 1ea145d58ec94029d4f6e30a6f854f728154ad8c (patch) | |
tree | 676f0e73479516d288c33dcc3156029b71554d75 /src/interp/clam.boot | |
parent | feb9d8d42ee30dbdad5184b654e3de461c06e7e7 (diff) | |
download | open-axiom-1ea145d58ec94029d4f6e30a6f854f728154ad8c.tar.gz |
More cleanup
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 b5ba0338..8789e6aa 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -365,7 +365,7 @@ clearCategoryCache catName == setDynamicBinding(cacheName,nil) displayHashtable x == - l:= NREVERSE SORTBY('CAR,[[opOf HGET(x,key),key] for key in HKEYS x]) + l:= nreverse SORTBY('CAR,[[opOf HGET(x,key),key] for key in HKEYS x]) for [a,b] in l repeat sayBrightlyNT ['%b,a,'%d] pp b @@ -388,7 +388,7 @@ reportCircularCacheStats(fn,n) == TERPRI() displayCacheFrequency al == - al := NREVERSE SORTBY('CAR,al) + al := nreverse SORTBY('CAR,al) sayBrightlyNT " #hits/#occurrences: " for [a,:b] in al repeat sayBrightlyNT [a,"/",b," "] TERPRI() @@ -579,7 +579,7 @@ reportInstantiations() == sayBrightly ['"# instantiated/# dropped/domain name", "%l",'"------------------------------------"] nTotal:= mTotal:= rTotal := nForms:= 0 - for [n,m,form] in NREVERSE SORTBY('CADDR,conList) repeat + for [n,m,form] in nreverse SORTBY('CADDR,conList) repeat nTotal:= nTotal+n; mTotal:= mTotal+m if n > 1 then rTotal:= rTotal + n-1 nForms:= nForms + 1 @@ -678,7 +678,7 @@ globalHashtableStats(x,sortFn) == argList1:= [constructor2ConstructorForm x for x in argList] reportList:= [[n,key,argList1],:reportList] sayBrightly ["%b"," USE NAME ARGS","%d"] - for [n,fn,args] in NREVERSE SORTBY(sortFn,reportList) repeat + for [n,fn,args] in nreverse SORTBY(sortFn,reportList) repeat sayBrightlyNT [:rightJustifyString(n,6)," ",fn,": "] pp args |