The Trunk: EToys-nice.43.mcz

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
  !