author | Stefan Vogel <sv@exept.de> |
Fri, 23 Sep 2016 17:16:38 +0200 | |
changeset 20435 | 54505346a337 |
parent 20434 | 871e7bff3dda |
child 20436 | a4aae3f01bc1 |
--- 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. ].