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
