•rand (simpler)

This commit is contained in:
Jesus Galan Lopez (yy) 2021-09-04 19:25:27 +02:00
parent 93caa03983
commit 72a5167813

View File

@ -422,10 +422,8 @@ B makeRand_c1(B t, B x) {
static B randNS; static B randNS;
B getRandNS() { B getRandNS() {
if (randNS.u == 0) { if (randNS.u == 0) {
B fn = bqn_exec(m_str32(U"•MakeRand"), emptyCVec(), emptySVec()); randNS = c1(bi_makeRand,m_f64(RANDSEED));
randNS = c1(fn,m_f64(RANDSEED));
gc_add(randNS); gc_add(randNS);
dec(fn);
} }
return inc(randNS); return inc(randNS);
} }