The Trunk: Kernel-tfel.1040.mcz

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!