#OTHER by stefan
authorStefan Vogel <sv@exept.de>
Fri, 23 Sep 2016 17:16:38 +0200
changeset 20435 54505346a337
parent 20434 871e7bff3dda
child 20436 a4aae3f01bc1
#OTHER by stefan class: CachingRegistry changed: #detect:ifNone:
CachingRegistry.st
--- a/CachingRegistry.st	Fri Sep 23 09:11:04 2016 +0200
+++ b/CachingRegistry.st	Fri Sep 23 17:16:38 2016 +0200
@@ -86,7 +86,7 @@
         (aBlock value:obj) ifTrue:[
             "if not at the end, put it to the end.
              but avoid to much remove/add actions"
-            cnt > (cacheSize // 2) ifTrue:[
+            cnt > (cacheSize // 4) ifTrue:[
                 keptReferences removeIdentical:obj ifAbsent:[].
                 keptReferences addLast:obj.
             ].