Fix ANSIStrings Slime rule

SeasideSt · Jan 13, 2024 · 4990652 · 4990652
1 parent bfea7ea
commit 4990652
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/instance/initialize.st
@@ -13,13 +13,14 @@ initialize
 		replace: '`@string includesSubstring: `@subString'
 			with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0';
 		replace: '``@string findTokens: ``@arg' byEvaluating: [ :node |
-			| argument |
-			argument := node arguments first.
+			| argument newNode |
+			newNode := node copy.
+			argument := newNode arguments first.
 			argument isLiteralNode ifTrue: [
 				argument value isArray
 					ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ].
 				argument value isCharacter
 					ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ].
-			node
+			newNode
 				selector: #subStrings:;
 				yourself ]