[Pkg] The Trunk: Environments-cwp.18.mcz

[commits at source.squeak.org]

Colin Putney uploaded a new version of Environments to project The Trunk:
http://source.squeak.org/trunk/Environments-cwp.18.mcz

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

Name: Environments-cwp.18
Author: cwp
Time: 11 March 2013, 6:14:54.348 pm
UUID: f39db45e-d4c9-49bb-ada1-b0120783635c
Ancestors: Environments-nice.17

Make Environment>>at:put: use existing bindings from Undeclared.

=============== Diff against Environments-nice.17 ===============

Item was changed:
  ----- Method: Environment>>at:put: (in category 'emulating') -----
  at: aSymbol put: anObject
  	| binding |
+ 	(contents includesKey: aSymbol)
+ 		ifTrue: [contents at: aSymbol put: anObject]
+ 		ifFalse:
+ 			[(undeclared includesKey: aSymbol) 
+ 				ifTrue: 
+ 					[contents declare: aSymbol from: undeclared.
+ 					contents at: aSymbol put: anObject]
+ 				ifFalse: 
+ 					[binding := anObject isBehavior
+ 						ifTrue: [Binding key: aSymbol value: anObject]
+ 						ifFalse: [Association key: aSymbol value: anObject].
+ 					contents add: binding.
+ 					exports bind: binding]].
- 	binding := anObject isBehavior
- 		ifTrue: [Binding key: aSymbol value: anObject]
- 		ifFalse: [Association key: aSymbol value: anObject].
- 	contents add: binding.
- 	exports bind: binding.
  	^ anObject
  !