Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1243.mcz
==================== Summary ====================
Name: Kernel-mt.1243 Author: mt Time: 12 July 2019, 9:56:47.949568 am UUID: 741f1855-ce1a-4d48-b741-9eeed6a4d7a0 Ancestors: Kernel-eem.1242
Refactoring of #literalsDo: - Step 1 of 3.
For more information, see http://forum.world.st/Please-Review-Refactoring-for-literalsDo-etc-tp5099756....
=============== Diff against Kernel-eem.1242 ===============
Item was added: + ----- Method: AdditionalMethodState>>allLiteralsDo: (in category 'literals') ----- + allLiteralsDo: aBlock + + 1 to: self basicSize do: [:index | + (self basicAt: index) allLiteralsDo: aBlock].!
Item was added: + ----- Method: Object>>allLiteralsDo: (in category 'literals') ----- + allLiteralsDo: aBlock + + self flag: #discuss. "mt: Better implement this only on Symbol, Array, Number, Binding, etc. instead of Object?" + aBlock value: self.!
Item was added: + ----- Method: Object>>hasLiteral: (in category 'literals') ----- + hasLiteral: literal + + ^ self hasLiteralSuchThat: [:lit | lit literalEqual: literal]!
Item was changed: + ----- Method: Object>>hasLiteralSuchThat: (in category 'literals') ----- - ----- Method: Object>>hasLiteralSuchThat: (in category 'testing') ----- hasLiteralSuchThat: testBlock - "This is the end of the imbedded structure path so return false."
+ self allLiteralsDo: [:literal | + (testBlock value: literal) ifTrue: [^ true]]. + ^ false!
Item was added: + ----- Method: Pragma>>allLiteralsDo: (in category 'literals') ----- + allLiteralsDo: aBlock + + keyword allLiteralsDo: aBlock. + arguments allLiteralsDo: aBlock.!
Item was changed: + ----- Method: Pragma>>hasLiteral: (in category 'literals') ----- - ----- Method: Pragma>>hasLiteral: (in category 'testing') ----- hasLiteral: aLiteral + "Extra support for #hasLiteralTest:." + + ^ (super hasLiteral: aLiteral) - ^keyword == aLiteral - or: [(arguments hasLiteral: aLiteral) or: [keyword == #hasLiteralTest: and: [ + self methodClass theNonMetaClass perform: arguments first with: aLiteral]]! - self methodClass theNonMetaClass perform: arguments first with: aLiteral]]]!
packages@lists.squeakfoundation.org