[Pkg] The Trunk: System-eem.484.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.484.mcz

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

Name: System-eem.484
Author: eem
Time: 3 May 2012, 9:15:17.73 am
UUID: 22d19428-0bee-46fc-b869-420d7994d06a
Ancestors: System-eem.483

Stricter methodsWithUnboundGlobals

=============== Diff against System-eem.483 ===============

Item was changed:
  ----- Method: SystemNavigation>>methodsWithUnboundGlobals (in category 'query') -----
  methodsWithUnboundGlobals
  	"Get all methods that use undeclared global objects that are not listed in Undeclared. For a clean image the result should be empty."
  
  	"SystemNavigation new methodsWithUnboundGlobals"
  
  	^self allSelect:
  		[:m|
  		m literals anySatisfy:
  			[:l|
  			l isVariableBinding
  			and: [l key isSymbol "avoid class-side methodClass literals"
+ 			and: [(m methodClass bindingOf: l key)
+ 					ifNil: [(Undeclared associationAt: l key ifAbsent: []) ~~ l]
+ 					ifNotNil: [:b| b ~~ l]]]]]!
- 			and: [(m methodClass bindingOf: l key) isNil
- 			and: [(Undeclared associationAt: l key ifAbsent: []) ~~ l]]]]]!