The Trunk: ReleaseBuilder-ul.45.mcz

Levente Uzonyi uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-ul.45.mcz

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

Name: ReleaseBuilder-ul.45
Author: ul
Time: 11 January 2010, 8:28:02.119 am
UUID: f1fa7c30-7713-964a-abb6-b575d7a4913f
Ancestors: ReleaseBuilder-nice.44

- code critics

=============== Diff against ReleaseBuilder-nice.44 ===============

Item was changed:
  ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseStripping (in category 'squeakland') -----
  makeSqueaklandReleasePhaseStripping
  "ReleaseBuilder new makeSqueaklandReleasePhaseStripping"
 
  #(#Helvetica #Palatino #Courier #ComicSansMS )
  do: [:n | TextConstants
  removeKey: n
  ifAbsent: []].
  Smalltalk
  at: #Player
  ifPresent: [:superCls | superCls
  allSubclassesDo: [:cls |
  cls isSystemDefined
  ifFalse: [cls removeFromSystem].
  cls := nil]].
  Smalltalk garbageCollect.
+ Smalltalk discardFFI; discardSUnit; discardSpeech.
- Smalltalk discardFFI; discardSUnit; discardSpeech; yourself.
  "discardMVC;"
  SystemOrganization removeEmptyCategories.
  Smalltalk garbageCollect.
  ScheduledControllers := nil.
  Behavior flushObsoleteSubclasses.
  Smalltalk garbageCollect; garbageCollect.
  DataStream initialize.
  Smalltalk fixObsoleteReferences!

Item was changed:
  ----- Method: ReleaseBuilderSqueakland>>finalStripping (in category 'utilities') -----
  finalStripping
  "ReleaseBuilderSqueakland new finalStripping"
 
  #(#Helvetica #Palatino #Courier #ComicSansMS )
  do: [:n | TextConstants
  removeKey: n
  ifAbsent: []].
  Smalltalk
  at: #Player
  ifPresent: [:superCls | superCls
  allSubclassesDo: [:cls |
  cls isSystemDefined
  ifFalse: [cls removeFromSystem].
  cls := nil]].
  Smalltalk garbageCollect.
+ Smalltalk discardFFI; discardSUnit; discardSpeech.
- Smalltalk discardFFI; discardSUnit; discardSpeech; yourself.
  "discardMVC;"
  SystemOrganization removeEmptyCategories.
  !