The Trunk: Kernel-bs.330.mcz

Andreas Raab uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-bs.330.mcz

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

Name: Kernel-bs.330
Author: bs
Time: 18 December 2009, 1:42:28 am
UUID: bdbd182a-85fc-4e00-a1e0-7924f4a171cd
Ancestors: Kernel-jcg.329

fixed AdditionalMethodState >> #at:put to make newly added test green

=============== Diff against Kernel-jcg.329 ===============

Item was changed:
  ----- Method: AdditionalMethodState>>at:put: (in category 'accessing') -----
  at: aKey put: aValue
  "Replace the property value or pragma associated with aKey."
+ | keyAlreadyExists |
+ keyAlreadyExists := false.
 
  1 to: self basicSize do:
  [:i |
  | propertyOrPragma "<Association|Pragma>" |
+ (propertyOrPragma := self basicAt: i) key == aKey ifTrue: [
+ keyAlreadyExists := true.
+ propertyOrPragma isVariableBinding
- (propertyOrPragma := self basicAt: i) key == aKey ifTrue:
- [propertyOrPragma isVariableBinding
  ifTrue: [propertyOrPragma value: aValue]
  ifFalse: [self basicAt: i put: aValue]]].
+
+ keyAlreadyExists ifFalse: [
+ method propertyValueAt: aKey put: aValue ].
+
+ ^ aValue!
- ^method propertyValueAt: aKey put: aValue!