The Trunk: Kernel-eem.1342.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Kernel-eem.1342.mcz

commits-2
Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.1342.mcz

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

Name: Kernel-eem.1342
Author: eem
Time: 1 October 2020, 4:23:04.242629 pm
UUID: 3f8b16e1-4140-4127-8885-b8b3f8644411
Ancestors: Kernel-eem.1341

Oops!  Forgot to commit isLinkedNamedPrimitive used by soundPluginActive.
Have Class>>binding use a ClassBinding for metaclass mclass associations too.

=============== Diff against Kernel-eem.1341 ===============

Item was changed:
  ----- Method: Class>>binding (in category 'compiling') -----
  binding
  "Answer a binding for the receiver, sharing if possible"
+ (self environment bindingOf: name ifAbsent: nil) ifNotNil:
+ [:bindingOrNil|
+ bindingOrNil value == self ifTrue:
+ [^bindingOrNil]].
+ ^ClassBinding key: nil value: self!
- | binding |
- binding := self environment associationAt: name ifAbsent: [nil -> self].
- ^binding value == self ifTrue:[binding] ifFalse:[nil -> self].!

Item was changed:
  ----- Method: CompiledMethod>>isLinkedNamedPrimitive (in category 'testing') -----
  isLinkedNamedPrimitive
  "Answer if the receiver invokes a named primitive, and the method is linked to an actual primitive.
+ For example if the method hasn't yet been used in the current session, it won't be linked"
- For example if the method hasn;t yet been used in the current session, it won't be linked"
  ^self isNamedPrimitive and: [(self literalAt: 1) fourth ~= 0]
 
  "self systemNavigation browseAllSelect: [:m| m isLinkedNamedPrimitive]"!