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

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

Name: Kernel-mt.1421
Author: mt
Time: 15 November 2021, 2:15:12.822579 pm
UUID: c56314fc-65ea-8e41-b550-1fe28f2d3f3f
Ancestors: Kernel-ct.1376, Kernel-eem.1420

Merges Kernel-ct.1376:
	Adds #cull:cull:cull:cull:cull: (for five args) analogously to #value:value:value:value:.

=============== Diff against Kernel-eem.1420 ===============

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