The Trunk: System-mt.1015.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1015.mcz

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

Name: System-mt.1015
Author: mt
Time: 8 April 2018, 12:01:31.43839 pm
UUID: 42c64965-b457-4c45-962c-85944be8e436
Ancestors: System-mt.1014

Etoys tests could have messed with your SoundService app registry. This commit and script cleans that up.

=============== Diff against System-mt.1014 ===============

Item was changed:
  ----- Method: SoundService class>>default (in category 'accessing') -----
  default
+ "This app registry returns instances instead of classes."
+
-
  | cls |
  cls := super default.
  ^ cls new!

Item was added:
+ ----- Method: SoundService class>>default: (in category 'accessing') -----
+ default: aClassOrNil
+ "See #default. This app registry returns instances instead of classes. Yet, make sure to only store classes so that always fresh instances will be returned."
+
+ ^ super default: (aClassOrNil ifNotNil: [:obj |
+ obj isBehavior
+ ifTrue: [obj]
+ ifFalse: [obj class]])!

Item was changed:
+ (PackageInfo named: 'System') postscript: '"Ensure that only classes are stored in the SoundService app registry."
+ SoundService default: SoundService defaultOrNil.'!
- (PackageInfo named: 'System') postscript: '(Smalltalk specialSelectorNames includes: #~~) ifFalse:
- ["Re-create the specialObjectsArray to let the jit optimize #~~. Also add the new primitive error codes if they are not there yet."
- | senders |
- senders := #(#~~ #blockCopy:) gather: [ :selector |
- "Recompile senders blockCopy: too, just in case."
- SystemNavigation default allCallsOn: selector ].
- Smalltalk recreateSpecialObjectsArray.
- VariableNode initialize.
- Decompiler initialize.
- senders
- do: [ :methodReference |
- | class |
- class := methodReference actualClass.
- class recompile: methodReference selector from: class ]
- displayingProgress: ''Recompiling...''].
- "If PrimitiveError is not in the primitiveErrorTable, or if an instance
-  of a different class is there, then add it."
- (Smalltalk primitiveErrorTable size < 21
- or: [(Smalltalk primitiveErrorTable at: 21) class ~~ PrimitiveError]) ifTrue:
- [Smalltalk recreateSpecialObjectsArray]'!