Tim Felgentreff uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tfel.1040.mcz
==================== Summary ====================
Name: Kernel-tfel.1040 Author: tfel Time: 27 September 2016, 2:57:29.665629 pm UUID: e6781812-fc7b-a546-818b-0b16c5d62e88 Ancestors: Kernel-tfel.1039
refactor newSubclass to go through the more general newUniqueClassInstVars:classInstVars: method.
=============== Diff against Kernel-tfel.1039 ===============
Item was changed: ----- Method: Class>>newSubclass (in category 'subclass creation') ----- newSubclass - | i className | - i := 1. - [className := (self name , i printString) asSymbol. - self environment includesKey: className] - whileTrue: [i := i + 1].
+ ^ self newUniqueClassInstVars: '' classInstVars: '' - ^ self subclass: className - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: Object categoryForUniclasses
"Point newSubclass new"!
Item was changed: ----- Method: Object class>>newUniqueClassInstVars:classInstVars: (in category 'instance creation') ----- newUniqueClassInstVars: instVarString classInstVars: classInstVarString "Create a unique class for the receiver"
| aName aClass | self isSystemDefined ifFalse: [^ superclass newUniqueClassInstVars: instVarString classInstVars: classInstVarString]. aName := self chooseUniqueClassName. aClass := self subclass: aName instanceVariableNames: instVarString classVariableNames: '' poolDictionaries: '' category: self categoryForUniclasses. + classInstVarString size > 0 ifTrue: + [aClass class instanceVariableNames: classInstVarString]. self flag: #todo. self flag: #uniclasses. "Discuss if we really want to hide uniclasses again" aClass environment forgetClass: aClass logged: false. self removeSubclass: aClass. - classInstVarString size > 0 ifTrue: - [aClass class instanceVariableNames: classInstVarString]. ^ aClass!
packages@lists.squeakfoundation.org