[Pkg] The Trunk: System-mt.1072.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jul 22 09:01:21 UTC 2019


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

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

Name: System-mt.1072
Author: mt
Time: 22 July 2019, 11:01:13.380271 am
UUID: da465e06-a24c-4ef2-9ecd-3c78c14fcd87
Ancestors: System-mt.1071

Fixes regression in class-ref search to not yield methods that send only symbols of class names. For class symbols, use regular senders search with a symbol (i.e., #allCallsOn:).

=============== Diff against System-mt.1071 ===============

Item was changed:
  ----- Method: SystemNavigation>>allCallsOnClass: (in category 'query') -----
  allCallsOnClass: aBehavior
  	"Answer a sorted collection of all the methods that refer to aBehavior."
  	
  	| theClass result |
  	theClass := aBehavior theNonMetaClass.
  	result := self 
+ 		allCallsOn: (theClass environment bindingOf: theClass name)
- 		allCallsOn: theClass name
  		fromBehaviors: self allBehaviors
  		sorted: false.
  	theClass environment allClassesDo: [ :class |
  		(class sharedPools includes: theClass) ifTrue: [
  			result add: (ClassReference class: class) ] ].
  	^result sort!



More information about the Packages mailing list