CHANGE: allow issues like ### or #a# (Rebol2/Red compatibility)

resolves: Oldes/Rebol-issues#2583
Oldes · Jan 12, 2024 · 7c84b60 · 7c84b60
1 parent e401edd
commit 7c84b60
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/core/l-scan.c b/src/core/l-scan.c
@@ -2149,6 +2149,7 @@ extern REBSER *Scan_Full_Block(SCAN_STATE *scan_state, REBYTE mode_char);
 				|| LEX_SPECIAL_PLUS   == c
 				|| LEX_SPECIAL_MINUS  == c
 				|| LEX_SPECIAL_TILDE  == c
+				|| LEX_SPECIAL_POUND  == c
 			))
 			return 0;
 

diff --git a/src/tests/units/lexer-test.r3 b/src/tests/units/lexer-test.r3
@@ -496,6 +496,16 @@ Rebol [
 ===end-group===
 
 
+===start-group=== "Issue"
+	--test-- {###}
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2583
+		--assert "###" = try [mold transcode/one {###}]
+		--assert "#a#" = try [mold transcode/one {#a#}]
+		--assert "#ab" = try [mold transcode/one {#ab}]
+
+===end-group===
+
+
 ===start-group=== "Char"
 	--test-- {#"^(1)"}
 		--assert #"^A" = load {#"^(1)"} ;@@ https://github.com/Oldes/Rebol-issues/issues/52