Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.1143.mcz==================== Summary ====================
Name: Kernel-eem.1143
Author: eem
Time: 11 January 2018, 12:46:50.669083 pm
UUID: 304608ac-b9d3-459b-813b-fd0c960a5911
Ancestors: Kernel-eem.1142
CompiledBlock>>numCopiedValues has utility
=============== Diff against Kernel-eem.1142 ===============
Item was added:
+ ----- Method: CompiledBlock>>numCopiedValues (in category 'accessing') -----
+ numCopiedValues
+ "Answer the number of copied values the receiver expects.
+ This is not fast as it is not expected to be needed from the
+ compiled block itself. It is available cheaply from a block
+ closure for the method."
+
+ | locator scanner pc |
+ locator := BlockStartLocator new.
+ scanner := InstructionStream on: self outerCode.
+ [pc := scanner pc.
+ self == (scanner interpretNextInstructionFor: locator) ifTrue:
+ [^(self outerCode abstractBytecodeMessageAt: pc) arguments second].
+ scanner atEnd] whileFalse.
+ self error: 'cannot find the block creation bytecode for this compiled block in its outer code.'!