Merge pull request #4078 from noha/4077-becomeForward-belongs-in-Prot…

…oObject Moved becomeForward from Object to ProtoObject where it belongs
pharo-project · Jul 24, 2019 · f4fa2b1 · f4fa2b1
2 parents 25cda33 + 023b36f
commit f4fa2b1
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 20 deletions.
diff --git a/src/Kernel/Delay.class.st b/src/Kernel/Delay.class.st
@@ -112,14 +112,14 @@ Delay class >> restartTimerEventLoop [
 	self startTimerEventLoop.
 ]
 
-{ #category : #'scheduler' }
+{ #category : #scheduler }
 Delay class >> scheduler [
 
 	^ Scheduler.
 
 ]
 
-{ #category : #'scheduler' }
+{ #category : #scheduler }
 Delay class >> scheduler: anObject [
 
 	Scheduler := anObject.

diff --git a/src/Kernel/Object.class.st b/src/Kernel/Object.class.st
@@ -497,24 +497,6 @@ Object >> beWritableObject [
 	^self setIsReadOnlyObject: false
 ]
 
-{ #category : #'reflective operations' }
-Object >> becomeForward: otherObject [ 
-	"Primitive. All variables in the entire system that used to point
-	to the receiver now point to the argument.
-	Fails if either argument is a SmallInteger."
-
-	{self} elementsForwardIdentityTo: {otherObject}
-]
-
-{ #category : #'reflective operations' }
-Object >> becomeForward: otherObject copyHash: copyHash [
-	"Primitive. All variables in the entire system that used to point to the receiver now point to the argument.
-	If copyHash is true, the argument's identity hash bits will be set to those of the receiver.
-	Fails if either argument is a SmallInteger."
-
-	{self} elementsForwardIdentityTo: {otherObject} copyHash: copyHash
-]
-
 { #category : #binding }
 Object >> bindingOf: aString [
 	^nil

diff --git a/src/Kernel/ProtoObject.class.st b/src/Kernel/ProtoObject.class.st
@@ -45,6 +45,24 @@ ProtoObject >> become: otherObject [
 	{self} elementsExchangeIdentityWith: {otherObject}
 ]
 
+{ #category : #'reflective operations' }
+ProtoObject >> becomeForward: otherObject [ 
+	"Primitive. All variables in the entire system that used to point
+	to the receiver now point to the argument.
+	Fails if either argument is a SmallInteger."
+
+	{self} elementsForwardIdentityTo: {otherObject}
+]
+
+{ #category : #'reflective operations' }
+ProtoObject >> becomeForward: otherObject copyHash: copyHash [
+	"Primitive. All variables in the entire system that used to point to the receiver now point to the argument.
+	If copyHash is true, the argument's identity hash bits will be set to those of the receiver.
+	Fails if either argument is a SmallInteger."
+
+	{self} elementsForwardIdentityTo: {otherObject} copyHash: copyHash
+]
+
 { #category : #'reflective operations' }
 ProtoObject >> cannotInterpret: aMessage [ 
 	 "Handle the fact that there was an attempt to send the given message to the receiver but a null methodDictionary was encountered while looking up the message selector.  Hopefully this is the result of encountering a stub for a swapped out class which induces this exception on purpose."