|d s|
d := Dictionary new.
CompiledMethod allInstances do: [:cm|
(cm literals select: [:l| l isKindOf: LookupKey])
do: [:assoc| |key|
key := assoc key.
key ifNotNil: [d at: key put: ((d at: assoc key ifAbsentPut: [0]) +
1)]]].
s := SortedCollection sortBlock: [:assoc1 :assoc2| assoc1 value >
assoc2 value].
d associationsDo: [:a| s add: a].
s inspect
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
