FIX: Parse's reject working incorrectly

resolves: Oldes/Rebol-issues#2394
Oldes · Jul 21, 2022 · 8549cab · 8549cab
1 parent 1a46e32
commit 8549cab
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/src/core/u-parse.c b/src/core/u-parse.c
@@ -780,8 +780,8 @@ void Print_Parse_Index(REBCNT type, REBVAL *rules, REBSER *series, REBCNT index)
 						return index;
 
 					case SYM_REJECT:
-						parse->result = -1;
-						return index;
+						parse->result = 0;
+						return NOT_FOUND;
 
 					case SYM_FAIL:
 						index = NOT_FOUND;

diff --git a/src/tests/units/parse-test.r3 b/src/tests/units/parse-test.r3
@@ -122,6 +122,18 @@ Rebol [
 ===end-group===
 
 
+===start-group=== "REJECT"
+--test-- "reject"
+;@@ https://github.com/Oldes/Rebol-issues/issues/2394
+	--assert not parse "aa" [some [#"a"] reject]
+	--assert     parse "aabb" [opt  [#"a" reject] to end]
+	--assert not parse "aabb" [some [#"a" reject] to end]
+	--assert not parse "aabb" [some  #"a" reject  to end]
+	--assert not parse "aabb" [[#"a" reject | "aabb"]]
+	--assert     parse "aabb" [[#"a" reject] | "aabb"]
+===end-group===
+
+
 ===start-group=== "CASE / NO-CASE"
 ;@@ https://github.com/Oldes/Rebol-issues/issues/1898
 --test-- "case/no-case 1"