The Inbox: Kernel-ct.1376.mcz

A new version of Kernel was added to project The Inbox:
http://source.squeak.org/inbox/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] }!