The Trunk: Environments-dtl.77.mcz

Nicolas Cellier uploaded a new version of Environments to project The Trunk:
http://source.squeak.org/trunk/Environments-dtl.77.mcz

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

Name: Environments-dtl.77
Author: dtl
Time: 20 December 2019, 12:39:42.803984 pm
UUID: 015242d9-b4ac-4abc-a2d3-2e1123587ef3
Ancestors: Environments-eem.76

Fix the uninstall script

=============== Diff against Environments-eem.76 ===============

Item was changed:
  ----- Method: Environment class>>uninstall (in category 'class initialization') -----
  uninstall
  | globals sysdict |
  self environment class == self ifFalse:
  [Transcript
  cr;
  show: 'Can''t uninstall environments; they''re not currently installed'.
  ^ self].
 
+ globals := Smalltalk globals declarations.
- globals := Smalltalk globals instVarNamed: 'contents'.
  sysdict := SystemDictionary new: globals size.
+ globals do: [:ea | sysdict add: ea].
- globals associationsDo: [:ea | sysdict add: ea].
  Smalltalk globals becomeForward: sysdict.!