The Trunk: Environments-cwp.16.mcz

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

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

Name: Environments-cwp.16
Author: cwp
Time: 9 March 2013, 8:21:24.354 pm
UUID: 3be60cc5-99d6-4809-94b2-b2e0ddfd0121
Ancestors: Environments-cwp.15

Reinstall environments now that it's updated.

=============== Diff against Environments-cwp.15 ===============

Item was changed:
  ----- Method: Environment class>>initialize (in category 'class initialization') -----
  initialize
+ self install!
- self uninstall!

Item was changed:
  ----- Method: Environment class>>install (in category 'class initialization') -----
  install
  | smalltalk env |
  self environment class == self ifTrue:
  [Transcript
  cr;
  show: 'Can''t install environments; they''re already installed'.
  ^ self].
 
  smalltalk := Smalltalk globals.
  env := self basicNew initializeWithSystemDictionary: smalltalk.
  Default := env.
+ Instances ifNil: [Instances := IdentityDictionary new].
  Instances at: env info name put: env.
  (smalltalk at: #Undeclared) becomeForward: (env at: #Undeclared).
  smalltalk becomeForward: env.
  Smalltalk garbageCollect.!