FIX: only using paren char escaping for chars in range 0x7F - 0x9F

related to: Oldes/Rebol-issues#2574
Oldes · Oct 26, 2023 · 1871d95 · 1871d95
1 parent 3a72825
commit 1871d95
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/src/core/s-mold.c b/src/core/s-mold.c
@@ -315,9 +315,7 @@ STOID Sniff_String(REBSER *ser, REBCNT idx, REB_STRF *sf)
 		default:
 			if (c == 0x1e) sf->chr1e += 4; // special case of ^(1e)
 			else if (IS_CHR_ESC(c)) sf->escape++;
-			else if (c >= 0x1000) sf->paren += 6; // ^(1234)
-			else if (c >= 0x100)  sf->paren += 5; // ^(123)
-			else if (c >= 0x7f)   sf->paren += 4; // ^(12)
+			else if (c >= 0x7f && c < 0xA0) sf->paren += 4; // ^(12)
 		}
 	}
 	if (sf->brace_in != sf->brace_out) sf->malign++;

diff --git a/src/tests/units/mold-test.r3 b/src/tests/units/mold-test.r3
@@ -204,6 +204,7 @@ Rebol [
 			]
 		]
 		try [delete %tmp2574]
+		--assert {"�"} = mold to string! #{F09F989C}
 
 
 ===end-group===