Fix GRAnsiCharacterRule: should only match character literals

SeasideSt · Jan 28, 2024 · 933bc73 · 933bc73
1 parent c53e80a
commit 933bc73
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st b/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 ])

diff --git a/...ry/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st b/...ry/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''')