[Pkg] The Trunk: System-topa.767.mcz

[commits at source.squeak.org]

Tobias Pape uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-topa.767.mcz

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

Name: System-topa.767
Author: topa
Time: 7 October 2015, 9:00:05.666 pm
UUID: 2a220b8c-0076-434d-bb9e-d70b57cd1e39
Ancestors: System-eem.766

simplify (aSymbol copyWith: $:) asSymbol to asMutator

=============== Diff against System-eem.766 ===============

Item was changed:
  ----- Method: FilePackage>>fileInFrom: (in category 'reading') -----
  fileInFrom: aStream
  	| changes |
  	changes := ChangeSet scanFile: aStream from: 0 to: aStream size.
  	aStream close.
  	('Processing ', self packageName) 
  		displayProgressFrom: 1
  		to: changes size
  		during:[:bar| | chgRec |
  			1 to: changes size do:[:i|
  				bar value: i.
  				chgRec := changes at: i.
+ 				self perform: chgRec type asMutator with: chgRec.
- 				self perform: (chgRec type copyWith: $:) asSymbol
- with: chgRec.
  			].
  		].!

Item was changed:
  ----- Method: FilePackage>>fromStream:named: (in category 'reading') -----
  fromStream: aStream named: aName
  	| changes |
  	changes := ChangeSet scanFile: aStream from: 0 to: aStream size.
  	aStream close.
  	('Processing ', aName) 
  		displayProgressFrom: 1
  		to: changes size
  		during:[:bar| | chgRec |
  			1 to: changes size do:[:i|
  				bar value: i.
  				chgRec := changes at: i.
+ 				self perform: chgRec type asMutator with: chgRec.
- 				self perform: (chgRec type copyWith: $:) asSymbol
- with: chgRec.
  			].
  		].!