The Trunk: Kernel-nice.818.mcz

Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.818.mcz

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

Name: Kernel-nice.818
Author: nice
Time: 2 November 2013, 12:05:29.34 am
UUID: 3dae8edc-b873-491e-8b54-596cae38eb5f
Ancestors: Kernel-cmm.817

Avoid spurious warnings in Class>>rename: when an Undeclared isn't really referenced.

This may help some SUnit tests to pass.

=============== Diff against Kernel-cmm.817 ===============

Item was changed:
  ----- Method: Class>>rename: (in category 'class name') -----
  rename: aString
  "The new name of the receiver is the argument, aString."
 
  | oldName newName |
  (newName := aString asSymbol) = (oldName := self name)
  ifTrue: [^ self].
  (self environment includesKey: newName)
  ifTrue: [^ self error: newName , ' already exists'].
+ ((self environment undeclared includesKey: newName)
+ and: [(self environment undeclared unreferencedKeys includes: newName) not])
- (self environment undeclared includesKey: newName)
  ifTrue: [self inform: 'There are references to ' , aString printString , '
  from Undeclared. Check them after this change.'].
  name := newName.
  self environment renameClass: self from: oldName!