Fix pattern matching in expressionToReplace

pharo-contributions · Jun 26, 2024 · 7b379de · 7b379de
1 parent 3c1c372
commit 7b379de
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 9 deletions.
diff --git a/src/MuTalk-Model/MTParseRewriterMutantOperator.class.st b/src/MuTalk-Model/MTParseRewriterMutantOperator.class.st
@@ -21,7 +21,7 @@ MTParseRewriterMutantOperator >> applyTo: anOldNode [
 		replace: self expressionToReplace
 		withValueFrom: [ :oNode | | aNewNode |
 			aNewNode := RBParser parseRewriteExpression: self newExpression.
-			"aNewNode copyInContext: rewriter context" ].
+			aNewNode copyInContext: rewriter context ].
 	rewriter executeTree: anOldNode copy.
 	^ rewriter tree
 ]
@@ -34,25 +34,25 @@ MTParseRewriterMutantOperator >> expressionToReplace [
 { #category : 'private' }
 MTParseRewriterMutantOperator >> modifiedSourceFor: aCompiledMethod with: aParseTree number: aNumber newExpression: anExpression [
 
+
 	| rewriter parser number nNode |
 	rewriter := RBParseTreeRewriter new.
 	number := aNumber.
 	parser := aParseTree copy.
 	rewriter
 		replace: self expressionToReplace
 		withValueFrom: [ :oNode |
-			| oldNode newNode |
 			nNode := RBParser parseRewriteExpression: anExpression.
-			"nNode := nNode copyInContext: rewriter context."
-			oldNode := oNode.
-			newNode := nNode.
-			newNode ]
+			nNode := nNode copyInContext: rewriter context.
+			nNode ]
 		when: [ :node |
 			number := number - 1.
 			number = 0 ].
 	rewriter executeTree: parser.
+
 	parser := rewriter tree.
 	^ parser formattedCode
+
 ]
 
 { #category : 'private' }

diff --git a/src/MuTalk-Model/MTReplaceAndWithEqvMutantOperator.class.st b/src/MuTalk-Model/MTReplaceAndWithEqvMutantOperator.class.st
@@ -8,7 +8,7 @@ Class {
 
 { #category : 'applying' }
 MTReplaceAndWithEqvMutantOperator >> expressionToReplace [
-	^'``@object and: ``@aBlock'
+	^'``@object and: ``@arg1'
 ]
 
 { #category : 'accessing' }

diff --git a/src/MuTalk-Model/MTReplaceAndWithNandMutantOperator.class.st b/src/MuTalk-Model/MTReplaceAndWithNandMutantOperator.class.st
@@ -8,7 +8,7 @@ Class {
 
 { #category : 'applying' }
 MTReplaceAndWithNandMutantOperator >> expressionToReplace [
-	^ '``@object and: ``@aBlock'
+	^ '``@object and: ``@arg1'
 ]
 
 { #category : 'accessing' }

diff --git a/src/MuTalk-Model/MTReplaceAndWithOrMutantOperator.class.st b/src/MuTalk-Model/MTReplaceAndWithOrMutantOperator.class.st
@@ -8,7 +8,7 @@ Class {
 
 { #category : 'applying' }
 MTReplaceAndWithOrMutantOperator >> expressionToReplace [
-	^ '``@object and: ``@aBlock'
+	^ '``@object and: ``@arg1'
 ]
 
 { #category : 'accessing' }