FIX: RANDOM can alter the sequence of series after PROTECT

Fixes: metaeducation/rebol-issues#1779
Oldes · Oct 15, 2018 · aa183b9 · aa183b9
1 parent 9de4fec
commit aa183b9
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/core/t-block.c b/src/core/t-block.c
@@ -833,6 +833,7 @@ static struct {
 		break;
 
 	case A_RANDOM:
+		if (IS_PROTECT_SERIES(VAL_SERIES(value))) Trap0(RE_PROTECTED);
 		if (!IS_BLOCK(value)) Trap_Action(VAL_TYPE(value), action);
 		if (D_REF(2)) Trap0(RE_BAD_REFINES); // seed
 		if (D_REF(4)) { // /only