FEAT: allow seeding random number generation using pairs and tuples

Oldes · Mar 25, 2024 · 185f453 · 185f453
1 parent 9f9ab3e
commit 185f453
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/src/core/t-pair.c b/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;

diff --git a/src/core/t-tuple.c b/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));