FIXUP: Use #mustBeBooleanMagicDoitForContext: intead of #asDoitForContext:

Author: janvrany

PreSmalltalks-Pharo8-Curry/BlockClosure.extension.st

@@ -6,7 +6,7 @@ BlockClosure >> value: anArg [
 	 whose closure is the receiver and whose caller is the sender of this message.
 	 Supply the argument and copied values to the activation as its arguments and copied temps.
 	 Primitive. Optional (but you're going to want this for performance)."
-	<primitive: 207>
+	<primitive: 202>
 	numArgs > 1 ifTrue:
 		[^self curry: {anArg}].
 	numArgs < 1 ifTrue:
@@ -20,7 +20,7 @@ BlockClosure >> value: firstArg value: secondArg [
 	 whose closure is the receiver and whose caller is the sender of this message.
 	 Supply the arguments and copied values to the activation as its arguments and copied temps.
 	 Primitive. Optional (but you're going to want this for performance)."
-	<primitive: 207>
+	<primitive: 203>
 	numArgs > 2 ifTrue:
 		[^self curry: {firstArg.secondArg}].
 	numArgs < 2 ifTrue:
@@ -34,7 +34,7 @@ BlockClosure >> value: firstArg value: secondArg value: thirdArg [
 	 whose closure is the receiver and whose caller is the sender of this message.
 	 Supply the arguments and copied values to the activation as its arguments and copied temps.
 	 Primitive. Optional (but you're going to want this for performance)."
-	<primitive: 207>
+	<primitive: 204>
 	numArgs > 3 ifTrue:
 		[^self curry: {firstArg.secondArg.thirdArg}].
 	numArgs < 3 ifTrue:
@@ -48,7 +48,7 @@ BlockClosure >> value: firstArg value: secondArg value: thirdArg value: fourthAr
 	 whose closure is the receiver and whose caller is the sender of this message.
 	 Supply the arguments and copied values to the activation as its arguments and copied temps.
 	 Primitive. Optional (but you're going to want this for performance)."
-	<primitive: 207>
+	<primitive: 205>
 	numArgs > 4 ifTrue:
 		[^self curry: {firstArg.secondArg.thirdArg.fourthArg}].
 	numArgs < 4 ifTrue:
@@ -63,14 +63,17 @@ BlockClosure >> valueWithArguments: anArray [
 	 Supply the arguments in an anArray and copied values to the activation as its arguments and copied temps.
 	 Primitive. Optional (but you're going to want this for performance)."
 	| newContext ncv |
-	<primitive: 208>
+	<primitive: 206>
 	numArgs > anArray size ifTrue:
 		[^self curry: anArray].
 	numArgs < anArray size ifTrue:
 		[^self uncurry: anArray].
-	anArray isArray 
-		ifTrue: [self primitiveFailed]
-		ifFalse: [
-			"Retrying with an array as parameter. As the primitive only supports arrays"
-			^ self valueWithArguments: anArray asArray ]
+	newContext := self asContextWithSender: thisContext sender.
+	ncv := self numCopiedValues.
+	newContext stackp: ncv + numArgs.
+	1 to: numArgs do:
+		[:i| newContext at: i put: (anArray at: i)].
+	1 to: ncv do:
+		[:i| newContext at: i + numArgs put: (self at: i)].
+	thisContext privSender: newContext
 ]