Merge pull request #942 from hellerve/veit/reseed

Call Random.reseed at program start

core/Random.carp

@@ -26,6 +26,11 @@
     (do
       (set! s (mod (+ (* s a) c) m))
       (/ s m)))
+
+  (private _)
+  (hidden _)
+  (doc _ "forces reseeding based on the current time at program start")
+  (def _ (do (seed) 0))
 )
 
 (defmodule Int

test/random.carp

@@ -3,11 +3,6 @@
 (use-all Random Test)
 
 (deftest test
-  (assert-op test
-             0.658908
-             (Random.random)
-             "deterministic randomization works as expected"
-             Double.approx)
   (assert-op test
              0.536041
              (do (Random.seed-from 33333.0) (Random.random))