The Trunk: Kernel-ct.1256.mcz

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

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

Name: Kernel-ct.1256
Author: ct
Time: 9 August 2019, 10:13:59.051412 pm
UUID: 4b6baca9-0e16-ea4d-9913-b813ebf87863
Ancestors: Kernel-ct.1255

Deduplicate CompiledMethod>>#pragmasAt:

=============== Diff against Kernel-mt.1254 ===============

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: [#()]!