Hi Christophe,

> In seed, line 3310 of fun.src, I'd suggest a 32 bits shift then a cast
> to an int for the result to conform to the docs:
> http://www.software-lab.de/doc/refS.html#seed
> n = (int)((initSeed(ex.Cdr.Car.eval()) * 6364136223846793005L) >>> 32);

Good, but this is not completely correct. It stores the reduced 32-bit
value in 'Seed'. I think 'Seed' must keep the full 64-bit value.

I changed it to

   return new Number((int)((Seed = initSeed(ex.Cdr.Car.eval()) * 
6364136223846793005L) >>> 32));

which is also more analog to pil32. What do you think?

It is also in the new release. Can you test a little more?

Again, thanks for the input!
♪♫ Alex
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to