[squeak-dev] The Trunk: Environments-cwp.16.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Mar 10 04:32:33 UTC 2013


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



More information about the Squeak-dev mailing list