Pull fixed-to-var-arity delegators up to Object

shingarov · Jun 27, 2024 · 316de6f · 316de6f
1 parent 984bece
commit 316de6f
Show file tree

Hide file tree

Showing 4 changed files with 20 additions and 60 deletions.
diff --git a/src/PreSmalltalks-Pharo/Object.extension.st b/src/PreSmalltalks-Pharo/Object.extension.st
@@ -67,3 +67,23 @@ Object >> primPerform: selector withArguments: argArray inSuperclass: lookupClas
 		ifFalse: [ ^ self error: 'Undefined behavior on wrong arity' ].	
 	self primitiveFailed
 ]
+
+{ #category : #'*PreSmalltalks-Pharo' }
+Object >> value: arg [
+	^self valueWithArguments: { arg }
+]
+
+{ #category : #'*PreSmalltalks-Pharo' }
+Object >> value: arg1 value: arg2 [
+	^self valueWithArguments: { arg1. arg2 }
+]
+
+{ #category : #'*PreSmalltalks-Pharo' }
+Object >> value: arg1 value: arg2 value: arg3 [
+	^self valueWithArguments: { arg1. arg2. arg3 }
+]
+
+{ #category : #'*PreSmalltalks-Pharo' }
+Object >> value: arg1 value: arg2 value: arg3 value: arg4 [
+	^self valueWithArguments: { arg1. arg2. arg3. arg4 }
+]
diff --git a/src/Refinements/EVar.class.st b/src/Refinements/EVar.class.st
@@ -192,26 +192,6 @@ EVar >> uniq1: α [
 	^self
 ]
 
-{ #category : #'function application' }
-EVar >> value: arg1 [
-	^self valueWithArguments: {arg1}
-]
-
-{ #category : #'function application' }
-EVar >> value: arg1 value: arg2 [
-	^self valueWithArguments: {arg1.arg2}
-]
-
-{ #category : #'function application' }
-EVar >> value: arg1 value: arg2 value: arg3 [
-	^self valueWithArguments: {arg1.arg2.arg3}
-]
-
-{ #category : #'function application' }
-EVar >> value: arg1 value: arg2 value: arg3 value: arg4 [
-	^self valueWithArguments: {arg1.arg2.arg3.arg4}
-]
-
 { #category : #'function application' }
 EVar >> valueWithArguments: args [
 	^args inject: self into: [ :acc :thisArg | EApp expr: acc imm: thisArg ]

diff --git a/src/Refinements/HVar.class.st b/src/Refinements/HVar.class.st
@@ -120,26 +120,6 @@ HVar >> value [
 	^self valueWithArguments: #()
 ]
 
-{ #category : #'function application' }
-HVar >> value: arg [
-	^self valueWithArguments: {arg}
-]
-
-{ #category : #'function application' }
-HVar >> value: arg1 value: arg2 [
-	^self valueWithArguments: {arg1. arg2}
-]
-
-{ #category : #'function application' }
-HVar >> value: arg1 value: arg2 value: arg3 [
-	^self valueWithArguments: {arg1. arg2. arg3}
-]
-
-{ #category : #'function application' }
-HVar >> value: arg1 value: arg2 value: arg3 value: arg4 [
-	^self valueWithArguments: {arg1. arg2. arg3. arg4}
-]
-
 { #category : #'function application' }
 HVar >> valueWithArguments: args [
 	"Create a Smalltalk-side representation of the receiver

diff --git a/src/Refinements/NaturalTransformation.class.st b/src/Refinements/NaturalTransformation.class.st
@@ -116,26 +116,6 @@ NaturalTransformation >> printOn: aStream [
 	aStream nextPutAll: ' components)'.
 ]
 
-{ #category : #evaluating }
-NaturalTransformation >> value: arg1 [
-	^self valueWithArguments: {arg1}
-]
-
-{ #category : #evaluating }
-NaturalTransformation >> value: arg1 value: arg2 [
-	^self valueWithArguments: {arg1.arg2}
-]
-
-{ #category : #evaluating }
-NaturalTransformation >> value: arg1 value: arg2 value: arg3 [
-	^self valueWithArguments: {arg1.arg2.arg3}
-]
-
-{ #category : #evaluating }
-NaturalTransformation >> value: arg1 value: arg2 value: arg3 value: arg4 [
-	^self valueWithArguments: {arg1.arg2.arg3.arg4}
-]
-
 { #category : #evaluating }
 NaturalTransformation >> valueWithArguments: args [
 	| D thisComponent C f |