The Trunk: Kernel-mt.1243.mcz

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-tp5099756p5100896.html.

=============== 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]]]!