--- a/Smalltalk.st Wed Dec 07 17:21:55 2016 +0100
+++ b/Smalltalk.st Wed Dec 07 17:22:50 2016 +0100
@@ -2038,17 +2038,17 @@
numClassesHintTimes2 := NumberOfClassesHint*2.
already := IdentitySet new:numClassesHintTimes2.
self allClassesDo:[:eachClass |
- |cls|
-
- cls := eachClass theNonMetaclass.
- (already includes:cls) ifFalse:[
- aBlock value:cls.
- already add:cls.
+ |theNonMeta theMeta|
+
+ theNonMeta := eachClass theNonMetaclass.
+ (already includes:theNonMeta) ifFalse:[
+ aBlock value:theNonMeta.
+ already add:theNonMeta.
].
- cls := cls class.
- (already includes:cls) ifFalse:[
- aBlock value:cls.
- already add:cls.
+ theMeta := theNonMeta class.
+ (already includes:theMeta) ifFalse:[
+ aBlock value:theMeta.
+ already add:theMeta.
].
already size > numClassesHintTimes2 ifTrue:[
NumberOfClassesHint := (already size // 2) + 10