Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1376.mcz
==================== Summary ====================
Name: Kernel-ct.1376 Author: ct Time: 2 March 2021, 7:16:36.10917 pm UUID: 4c5758e1-3727-f04b-86c3-e9fe79a65db4 Ancestors: Kernel-jar.1375
Adds #cull:cull:cull:cull:cull: (for five args) analogously to #value:value:value:value:.
=============== Diff against Kernel-jar.1375 ===============
Item was added: + ----- Method: BlockClosure>>cull:cull:cull:cull:cull: (in category 'evaluating') ----- + cull: firstArg cull: secondArg cull: thirdArg cull: fourthArg cull: fifthArg + "Activate the receiver, with five or less arguments." + <primitive: 206> "Handle the five argument case primitively" + + ^ numArgs + caseOf: { + [5] -> [self value: firstArg value: secondArg value: thirdArg value: fourthArg value: fifthArg]. + [4] -> [self value: firstArg value: secondArg value: thirdArg value: fourthArg]. + [3] -> [self value: firstArg value: secondArg value: thirdArg]. + [2] -> [self value: firstArg value: secondArg]. + [1] -> [self value: firstArg]. + [0] -> [self value] } + otherwise: [self numArgsError: numArgs]!
Item was added: + ----- Method: FullBlockClosure>>cull:cull:cull:cull:cull: (in category 'evaluating') ----- + cull: firstArg cull: secondArg cull: thirdArg cull: fourthArg cull: fifthArg + "Activate the receiver, with five or less arguments." + <primitive: 207> "Handle the five argument case primitively" + + ^ numArgs + caseOf: { + [5] -> [self value: firstArg value: secondArg value: thirdArg value: fourthArg value: fifthArg]. + [4] -> [self value: firstArg value: secondArg value: thirdArg value: fourthArg]. + [3] -> [self value: firstArg value: secondArg value: thirdArg]. + [2] -> [self value: firstArg value: secondArg]. + [1] -> [self value: firstArg]. + [0] -> [self value] } + otherwise: [self numArgsError: numArgs]!
Item was added: + ----- Method: MessageSend>>cull:cull:cull:cull:cull: (in category 'evaluating') ----- + cull: firstArg cull: secondArg cull: thirdArg cull: fourthArg cull: fifthArg + "Send the message with these optional arguments and answer the return value" + + ^ selector numArgs caseOf: { + [5] -> [self value: firstArg value: secondArg value: thirdArg value: fourthArg value: fifthArg]. + [4] -> [self value: firstArg value: secondArg value: thirdArg value: fourthArg]. + [3] -> [self value: firstArg value: secondArg value: thirdArg]. + [2] -> [self value: firstArg value: secondArg]. + [1] -> [self value: firstArg]. + [0] -> [self value] }!
squeak-dev@lists.squeakfoundation.org