Fix GRAnsiCharacterRule: should only match character literals

Author: Johan Brichau

repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st

@@ -6,7 +6,7 @@ initialize
 		replace: 'Character value: ``@expr'
 		with: 'Character codePoint: ``@expr'.
 	self
-		replace: '`#source to: `#target'
+		replace: '`#source `{:node | node value isCharacter }` to: `#target'
 		byEvaluating: [ :node |
 			(node receiver value isCharacter and: [
 				 node arguments first value isCharacter ])

repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st

@@ -5,6 +5,7 @@ testAnsiCharacterRule
 	class := self defineSubClassOf: #GRObject.
 	self compile: 'character Character value: 123' in: class.
 	self compile: 'characterRange $a to: $c' in: class.
+	self compile: 'integerRange 1 to: 10' in: class.
 	self 
 		runTransformation: GRAnsiCharactersRule
 		changes: #('character Character codePoint: 123' 'characterRange ''abc''')