Merge pull request #13567 from MarcusDenker/Commit-Deprecation-Rewrites

Commit-Deprecation-Rewrites

src/Collections-Sequenceable-Tests/ArrayTest.class.st

@@ -828,13 +828,30 @@ ArrayTest >> testSelfEvaluating [
 
 { #category : #tests }
 ArrayTest >> testSelfEvaluatingComplexCase [
+
 	| complexArray restoredArray |
-	complexArray := {1 . true . false . nil . #a . 'a' . $a . Float pi . Float halfPi . (4 / 5) . Float infinity negated . (1 @ 2) . (0 @ 0 extent: 1 @ 1).
-	('hola' -> 0) . Object . Object class}.
+	complexArray := {
+		                1.
+		                true.
+		                false.
+		                nil.
+		                #a.
+		                'a'.
+		                $a.
+		                Float pi.
+		                Float halfPi.
+		                (4 / 5).
+		                Float infinity negated.
+		                (1 @ 2).
+		                (0 @ 0 extent: 1 @ 1).
+		                ('hola' -> 0).
+		                Object.
+		                Object class }.
 	complexArray := complexArray copyWith: complexArray.
 	self assert: complexArray isSelfEvaluating.
 
-	restoredArray := self class evaluate: complexArray printString.
+	restoredArray := self class compiler evaluate:
+		                 complexArray printString.
 	self assert: restoredArray equals: complexArray
 ]
 

src/Debugger-Model-Tests/RecompileTest.class.st

@@ -9,7 +9,7 @@ RecompileTest >> testRecompileDoIt [
 
 	| method node |
 	method := nil compiler
-		          noPattern: true;
+		          isScripting: true;
 		          compile: '| a | a := 42'.
 	self settingUpSessionAndProcessAndContextForBlock: [
 		nil executeMethod: method ].

src/EmergencyDebugger/EDDebuggingAPI.class.st

@@ -171,7 +171,7 @@ EDDebuggingAPI >> revert: aCompiledMethod to: aChangeRecord [
 
 	aCompiledMethod methodClass
 		compile: aChangeRecord sourceCode
-		classified: aChangeRecord category
+		classified: aChangeRecord protocol
 		withStamp: aChangeRecord stamp
 		notifying: nil
 ]

src/Kernel-Tests-WithCompiler/SelfEvaluatingObjectTest.class.st

@@ -9,7 +9,10 @@ Class {
 
 { #category : #utilities }
 SelfEvaluatingObjectTest >> assertCode: code print: aString [
-	self assert: (self class evaluate: code) printString equals: aString
+
+	self
+		assert: (self class compiler evaluate: code) printString
+		equals: aString
 ]
 
 { #category : #tests }

src/PharoDocComment/PharoDocCommentExpression.class.st

@@ -37,12 +37,11 @@ PharoDocCommentExpression >> expressionNode [
 
 { #category : #accessing }
 PharoDocCommentExpression >> expressionNodeReal [
-
 	"Force the parsing of the expression node"
 
 	^ self methodClass compiler
 		  source: self source;
-		  noPattern: true;
+		  isScripting: true;
 		  receiver: self methodClass;
 		  parse
 ]