FEAT: allow seeding random number generation using pairs and tuples

Author: Oldes

src/core/t-pair.c

@@ -282,7 +282,10 @@
 			goto setPair;
 
 		case A_RANDOM:
-			if (D_REF(2)) Trap0(RE_BAD_REFINES); // seed
+			if (D_REF(2)) { // seed
+				Set_Random(VAL_INT64(val));
+				return R_UNSET;
+			}
 			x1 = (REBD32)Random_Range((REBINT)x1, (REBOOL)D_REF(3));
 			y1 = (REBD32)Random_Range((REBINT)y1, (REBOOL)D_REF(3));
 			goto setPair;

src/core/t-tuple.c

@@ -274,7 +274,10 @@
 		goto ret_value;
 	}
 	if (action == A_RANDOM) {
-		if (D_REF(2)) Trap0(RE_BAD_REFINES); // seed
+		if (D_REF(2)) { // seed
+			Set_Random(Compute_CRC24(vp, len));
+			return R_UNSET;
+		}
 		for (;len > 0; len--, vp++) {
 			if (*vp)
 				*vp = (REBYTE)(Random_Int(D_REF(3)) % (1+*vp));