The Trunk: Environments-cwp.60.mcz

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]!