[squeak-dev] The Trunk: Kernel-eem.1342.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Oct 1 23:23:09 UTC 2020


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



More information about the Squeak-dev mailing list