[Pkg] The Trunk: Environments-cwp.60.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.60.mcz

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

Name: Environments-cwp.60
Author: cwp
Time: 27 November 2015, 5:14:36.376 pm
UUID: c8836cde-f21e-4652-a2e9-73f8de6f00e0
Ancestors: Environments-kfr.59

Always serialize Bindings as DiskProxies.

=============== Diff against Environments-kfr.59 ===============

Item was changed:
  ----- Method: Binding>>objectForDataStream: (in category 'as yet unclassified') -----
  objectForDataStream: refStrm
+ 	"I am about to be written on an object file.  I am a global, so write a proxy that 
+ 	will hook up with the same resource in the destination system."
- 	| dp |
- 	"I am about to be written on an object file.  If I am a known global, write a proxy that will hook up with the same resource in the destination system."
- 	self flag: #environments.
  
+ 	| dp |
+ 	dp := DiskProxy 
+ 		global: #Smalltalk 
+ 		selector: #associationOrUndeclaredAt: 
+ 		args: (Array with: key).
+ 	refStrm replace: self with: dp.
+ 	^ dp!
- 	^ (Smalltalk globals associationAt: key ifAbsent: [nil]) == self 
- 		ifTrue: [dp := DiskProxy global: #Smalltalk selector: #associationOrUndeclaredAt: 
- 							args: (Array with: key).
- 			refStrm replace: self with: dp.
- 			dp]
- 		ifFalse: [self]!