Fix ANSI characters Slime rule

Johan Brichau · Johan Brichau · commit bfea7eadc910 · 2024-01-13T14:20:16.000+01:00
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st
@@ -2,12 +2,15 @@ initialization
 initialize
 
 	super initialize.
-	self replace: 'Character value: ``@expr' with: 'Character codePoint: ``@expr'
-		"replace: '`#source to: `#target'
-			withValueFrom: [ :node |
-				RBLiteralNode value: (String streamContents: [ :stream |
-					node receiver value codePoint to: node arguments first value codePoint do: [ :code |
-						stream nextPut: (Character codePoint: code) ] ]) ]
-			when: [ :node |
-				node receiver value isCharacter
-					and: [ node arguments first value isCharacter ] ]"
+	self
+		replace: 'Character value: ``@expr'
+		with: 'Character codePoint: ``@expr'.
+	self
+		replace: '`#source to: `#target'
+		byEvaluating: [ :node |
+			(node receiver value isCharacter and: [
+				 node arguments first value isCharacter ])
+				ifTrue: [
+					RBLiteralNode value: (String streamContents: [ :stream |
+							 node receiver value codePoint to: node arguments first value codePoint do: [ :code | stream nextPut: (Character codePoint: code) ] ]) ]
+				ifFalse: [ node ] ]
