[Pkg] The Trunk: Collections-mt.843.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-mt.843.mcz

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

Name: Collections-mt.843
Author: mt
Time: 12 July 2019, 10:01:59.574568 am
UUID: 7eec09f6-7031-2b40-af5a-8468dba01848
Ancestors: Collections-mt.842

Refactoring of #literalsDo: - Step 3 of 3. 

For more information, see http://forum.world.st/Please-Review-Refactoring-for-literalsDo-etc-tp5099756p5100896.html.

=============== Diff against Collections-mt.842 ===============

Item was changed:
  ----- Method: Dictionary>>unreferencedKeys (in category 'removing') -----
  unreferencedKeys
  	"| uk | (Time millisecondsToRun: [uk := TextConstants unreferencedKeys]) -> uk"
  
  	^'Scanning for references . . .' 
  		displayProgressFrom: 0
  		to: Smalltalk classNames size * 2
  		during: [ :bar |
  			| currentClass n associations referencedAssociations |
  			currentClass := nil.
  			n := 0.
  			associations := self associations asIdentitySet.
  			referencedAssociations := IdentitySet new: associations size.
  			self systemNavigation allSelectorsAndMethodsDo: [ :behavior :selector :method |
  				behavior == currentClass ifFalse: [
  					currentClass := behavior.
  					 bar value: (n := n + 1) ].
+ 				method allLiteralsDo: [ :literal |
- 				method literalsDo: [ :literal |
  					(literal isVariableBinding and: [ associations includes: literal ]) ifTrue: [
  						referencedAssociations add: literal ] ] ].
  			(associations reject: [ :assoc | referencedAssociations includes: assoc ]) collect: [ :assoc| assoc key ] ]!