FIX: PROTECT and UNPROTECT bitset!

fixes: Oldes/Rebol-issues#977

Author: Oldes

src/core/n-control.c

@@ -88,7 +88,7 @@ enum {
 **
 ***********************************************************************/
 {
-	if (ANY_SERIES(value) || IS_MAP(value))
+	if (ANY_SERIES(value) || IS_MAP(value) || IS_BITSET(value))
 		Protect_Series(value, flags);
 	else if (IS_OBJECT(value) || IS_MODULE(value))
 		Protect_Object(value, flags);

src/core/t-bitset.c

@@ -293,6 +293,8 @@
 {
 	REBCNT n = VAL_INDEX(val);
 
+	if(IS_PROTECT_SERIES(bset)) Trap0(RE_PROTECTED);
+
 	if (VAL_BYTE_SIZE(val)) {
 		REBYTE *bp = VAL_BIN(val);
 		for (; n < VAL_TAIL(val); n++)
@@ -317,6 +319,8 @@
 	REBCNT n;
 	REBCNT c;
 
+	if(IS_PROTECT_SERIES(bset)) Trap0(RE_PROTECTED);
+
 	if (IS_CHAR(val)) {
 		Set_Bit(bset, VAL_CHAR(val), set);
 		return TRUE;

src/tests/units/protect-test.r3

@@ -52,6 +52,12 @@ Rebol [
 	protect out
 	--assert is-protected-error? [delect dialect inp out]
 
+	--test-- "protect bitset"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/977
+		ws: protect charset "^- "
+		--assert is-protected-error? [clear ws  ]
+		--assert is-protected-error? [ws/1: true]
+
 ===end-group===
 
 ~~~end-file~~~