[squeak-dev] The Trunk: EToys-nice.43.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jan 1 00:21:38 UTC 2010


Nicolas Cellier uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-nice.43.mcz

==================== Summary ====================

Name: EToys-nice.43
Author: nice
Time: 1 January 2010, 1:21:24 am
UUID: 0809d469-fce8-43e5-ab17-17c7fcc29589
Ancestors: EToys-nice.42

Don't assign block argument with nil, with closure that is not necessary.

=============== Diff against EToys-nice.42 ===============

Item was changed:
  ----- Method: Player class>>abandonUnnecessaryUniclasses (in category 'housekeeping') -----
  abandonUnnecessaryUniclasses
  	"Player abandonUnnecessaryUniclasses"
  	| oldCount oldFree newFree newCount report |
  	oldCount := self subclasses size - 1.
  	oldFree := Smalltalk garbageCollect.
  	self allSubInstances do:
+ 		[:aPlayer | aPlayer revertToUnscriptedPlayerIfAppropriate].
- 		[:aPlayer | aPlayer revertToUnscriptedPlayerIfAppropriate.  
- 		"encourage last one to get garbage-collected"
- 		aPlayer := nil ].
  
  	ScriptingSystem spaceReclaimed.
  	newFree := Smalltalk garbageCollect.
  	newCount := self subclasses size - 1.
  	report := 'Before: ', oldCount printString, ' uniclasses, ', oldFree
  printString, ' bytes free
  After:  ', newCount printString, ' uniclasses, ', newFree printString, '
  bytes free'.
  	Transcript cr; show: 'abandonUnnecessaryUniclasses:'; cr; show: report.
  	^ report
  	!




More information about the Squeak-dev mailing list