[squeak-dev] The Trunk: Kernel-bs.330.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Dec 18 13:04:43 UTC 2009


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!




More information about the Squeak-dev mailing list