Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#TUNING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 06 Oct 2016 19:15:36 +0200
changeset 20557 1d6ece180d90
parent 20556 d6f5739ac631
child 20558 f40db7413f3a
#TUNING by cg class: Smalltalk changed: #allClassesAndMetaclassesDo:
Smalltalk.st file | annotate | diff | comparison | revisions 
--- a/Smalltalk.st	Thu Oct 06 19:14:26 2016 +0200
+++ b/Smalltalk.st	Thu Oct 06 19:15:36 2016 +0200
@@ -1988,8 +1988,8 @@
             aBlock value:cls.
             already add:cls.
         ].
-        already size > NumberOfClassesHint ifTrue:[
-            NumberOfClassesHint := already size
+        already size > (NumberOfClassesHint * 2) ifTrue:[
+            NumberOfClassesHint := (already size // 2) + 1
         ].    
     ].
 !
hg/stx-libbasic