Colin Putney uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cwp.670.mcz
==================== Summary ====================
Name: System-cwp.670 Author: cwp Time: 22 March 2014, 8:04:15.84 pm UUID: 741ae407-86eb-4c68-851b-1f00137c6c54 Ancestors: System-cmm.669
Rename EnvironmentRequest to CurrentEnvironment, use the new "Environment current" mechanism where appropriate.
=============== Diff against System-cmm.669 ===============
Item was changed: ----- Method: ChangeRecord>>fileIn: (in category 'initialization') ----- fileIn: anEnvironment "File the receiver in. If I represent a method or a class-comment, file the method in and make a note of it in the recent-submissions list; if I represent a do-it, then, well, do it; if I represent a reorganization then get organized!!"
Cursor read showWhile: [| s cls aSelector | type == #doIt ifTrue: [((s := self string) beginsWith: '----') ifFalse: [Compiler evaluate: s]] ifFalse: [cls := self methodClass: anEnvironment. type == #method ifTrue: [[cls compile: self text classified: category withStamp: stamp notifying: nil] + on: CurrentEnvironment do: [:e | e resume: anEnvironment]. - on: EnvironmentRequest do: [:e | e resume: anEnvironment]. (aSelector := self methodSelector) ifNotNil: [RecentMessages default recordSelector: aSelector forClass: cls inEnvironment: anEnvironment]]. type == #classComment ifTrue: [cls comment: self text stamp: stamp. RecentMessages default recordSelector: #Comment forClass: cls inEnvironment: anEnvironment]. type == #reorganize ifTrue: [cls organization changeFromString: self text]]]!
Item was changed: ----- Method: InternalTranslator>>scanFrom: (in category 'fileIn/fileOut') ----- scanFrom: aStream + ^ self scanFrom: aStream environment: Environment current! - ^ self scanFrom: aStream environment: Environment default!
Item was changed: ----- Method: NaturalLanguageTranslator>>scanFrom: (in category 'fileIn/fileOut') ----- scanFrom: aStream + ^ self scanFrom: aStream environment: Environment current! - ^ self scanFrom: aStream environment: Environment default!
packages@lists.squeakfoundation.org