FIX: Bitset not allowed in to/thru block

Oldes · Oldes · commit fdc05fd0bd5d · 2018-06-27T21:36:36.000+02:00
Allow to/thru [bitset|...] in PARSE For example: ``` >> x: charset "x" y: charset "y" parse "y" [thru [x | y]] == true ``` Fixes: metaeducation/rebol-issues#2141 (cherry picked from commit 68a0e0a)
diff --git a/src/core/u-parse.c b/src/core/u-parse.c
@@ -435,6 +435,11 @@ void Print_Parse_Index(REBCNT type, REBVAL *rules, REBSER *series, REBCNT index)
 						}
 					}
 				}
+				// bitset
+				else if (IS_BITSET(item)) {
+					if (Check_Bit(VAL_SERIES(item), ch1, !HAS_CASE(parse)))
+						goto found1;
+				}
 				else if (ANY_STR(item)) {
 					ch2 = VAL_ANY_CHAR(item);
 					if (!HAS_CASE(parse)) ch2 = UP_CASE(ch2);

Original file line number	Diff line number	Diff line change
`@@ -435,6 +435,11 @@ void Print_Parse_Index(REBCNT type, REBVAL rules, REBSER series, REBCNT index)`
`435`	`435`	`}`
`436`	`436`	`}`
`437`	`437`	`}`
	`438`	`+ // bitset`
	`439`	`+ else if (IS_BITSET(item)) {`
	`440`	`+ if (Check_Bit(VAL_SERIES(item), ch1, !HAS_CASE(parse)))`
	`441`	`+ goto found1;`
	`442`	`+ }`
`438`	`443`	`else if (ANY_STR(item)) {`
`439`	`444`	`ch2 = VAL_ANY_CHAR(item);`
`440`	`445`	`if (!HAS_CASE(parse)) ch2 = UP_CASE(ch2);`