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]'!
packages@lists.squeakfoundation.org