diff options
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 a0c57a41..f1f88374 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -364,7 +364,7 @@ clearCategoryCache catName == symbolValue(mkCacheName catName) := nil displayHashtable x == - l:= reverse! SORTBY('CAR,[[opOf val,key] for [key,:val] in entries x]) + l := sortBy(function first,[[opOf val,key] for [key,:val] in entries x]) for [a,b] in l repeat sayBrightlyNT ['"%b",a,'"%d"] pp b @@ -387,7 +387,7 @@ reportCircularCacheStats(fn,n) == TERPRI() displayCacheFrequency al == - al := reverse! SORTBY('CAR,al) + al := sortBy(function first,al) sayBrightlyNT " #hits/#occurrences: " for [a,:b] in al repeat sayBrightlyNT [a,"/",b," "] TERPRI() @@ -572,7 +572,7 @@ reportInstantiations() == sayBrightly ['"# instantiated/# dropped/domain name", "%l",'"------------------------------------"] nTotal:= mTotal:= rTotal := nForms:= 0 - for [n,m,form] in reverse! SORTBY('CADDR,conList) repeat + for [n,m,form] in sortBy(function third,conList) repeat nTotal:= nTotal+n; mTotal:= mTotal+m if n > 1 then rTotal:= rTotal + n-1 nForms:= nForms + 1 @@ -669,7 +669,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 reverse! SORTBY(sortFn,reportList) repeat + for [n,fn,args] in sortBy(sortFn,reportList) repeat sayBrightlyNT [:rightJustifyString(n,6)," ",fn,": "] pp args |