Dear list,

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);


chri

-- 

http://profgra.org/lycee/ (site pro)
http://delicious.com/profgraorg (liens, favoris)
https://twitter.com/profgraorg
http://microalg.info
-- 
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to