fix

Johan Brichau · Johan Brichau · commit 1ec525d02e3f · 2024-01-07T20:11:14.000+01:00
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/group.st b/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/group.st
@@ -0,0 +1,4 @@
+accessing
+group
+
+	^ 'ANSI Compatibility'
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st
@@ -0,0 +1,13 @@
+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 ] ]"
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/name.st b/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/name.st
@@ -0,0 +1,4 @@
+accessing
+name
+
+	^ 'Characters'
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st
@@ -0,0 +1,4 @@
+accessing
+rationale
+
+	^ 'Character value: 64 and $a to: $b is not ANSI compatible.'
diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st
@@ -1,6 +1,6 @@
 tests-transform
 testAnsiCharacterRule
-	<expectedFailure>
+
 	| class |
 	class := self defineSubClassOf: #GRObject.
 	self compile: 'character Character value: 123' in: class.

-Original file line number
+Diff line change
@@ @@ -0,0 +1,4 @@ @@
 +accessing
 +group
++
 +	^ 'ANSI Compatibility'