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

resolves: Oldes/Rebol-issues#2583

Author: Oldes

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;
 

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