picolisp

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

'seed' analog
Diffstat:
M
ersatz/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