picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit c4cecbcea99f49b7c06e5532033ea8172c3b0916
parent 421770c1a78574cdd125c2d1585f8b4f25018f6a
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri,  8 Jul 2011 12:13:15 +0200

'seed' analog
Diffstat:
Mersatz/fun.src | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ersatz/fun.src b/ersatz/fun.src @@ -1,4 +1,4 @@ -# 07mar11abu +# 08jul11abu # (c) Software Lab. Alexander Burger # Ersatz PicoLisp Functions @@ -3165,7 +3165,7 @@ x| (num x) # (seed 'any) -> cnt seed (n) - n = initSeed(ex.Cdr.Car.eval()) * 6364136223846793005L + 1; + n = initSeed(ex.Cdr.Car.eval()) * 6364136223846793005L; return new Number(Seed = n); # (rand ['cnt1 'cnt2] | ['T]) -> cnt | flg