From 7c84b60c8a2ba2cbd9c57fb416d87a563ad82713 Mon Sep 17 00:00:00 2001 From: Oldes Huhuman Date: Fri, 12 Jan 2024 12:10:59 +0100 Subject: [PATCH] CHANGE: allow issues like `###` or `#a#` (Rebol2/Red compatibility) resolves: https://github.com/Oldes/Rebol-issues/issues/2583 --- src/core/l-scan.c | 1 + src/tests/units/lexer-test.r3 | 10 ++++++++++ 2 files changed, 11 insertions(+) diff --git a/src/core/l-scan.c b/src/core/l-scan.c index f67fba3028..5f3b9e9988 100644 --- 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 index b3a789f1c9..a2b85a49d8 100644 --- 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