The Trunk: Kernel-mt.1257.mcz

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

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

Name: Kernel-mt.1257
Author: mt
Time: 14 August 2019, 5:11:58.166512 pm
UUID: afbd54a7-0b4b-c945-a20d-a640d001d4e6
Ancestors: Kernel-mt.1256, Kernel-ct.1256

Merges Kernel-ct.1256.

Note that there is also the Pragma class, which offers a querying interface for pragmas.

=============== Diff against Kernel-mt.1256 ===============

Item was added:
+ ----- Method: CompiledMethod>>hasPragma: (in category 'accessing-pragmas & properties') -----
+ hasPragma: aSymbol
+
+ ^ (self pragmaAt: aSymbol) notNil!

Item was changed:
  ----- Method: CompiledMethod>>pragmasAt: (in category 'accessing-pragmas & properties') -----
  pragmasAt: aSelector
+ ^self pragmas select: [:p| p keyword = aSelector]!
- | selectorOrProperties |
- ^(selectorOrProperties := self penultimateLiteral) isMethodProperties
- ifTrue: [selectorOrProperties pragmas select: [:p| p keyword = aSelector]]
- ifFalse: [#()]!