[no subject]

[Ludovic Courtès]

branch: master
commit 54256392719b291548aa936e9e185797f2523f04
Author: Ludovic Courtès <address@hidden>
Date:   Thu Feb 8 14:05:17 2018 +0100

    examples: random: Make derivations a bit more random.
    
    * examples/random-jobs.scm (random-derivation): Tweak the computation of
    SEED.  Actually use the new random state.
---
 examples/random-jobs.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/examples/random-jobs.scm b/examples/random-jobs.scm
index 9918cd1..9d26892 100644
--- a/examples/random-jobs.scm
+++ b/examples/random-jobs.scm
@@ -33,10 +33,11 @@
   (let ((nonce (random 1e6)))
     (run-with-store store
       (gexp->derivation "random"
-                        #~(let ((seed (logxor (getpid)
-                                              (car (gettimeofday)))))
-                            (seed->random-state seed)
-                            (sleep (pk 'sleeping (random 10)))
+                        #~(let* ((seed  (logxor #$(cdr (gettimeofday))
+                                                (car (gettimeofday))
+                                                (cdr (gettimeofday))))
+                                 (state (seed->random-state seed)))
+                            (sleep (pk 'sleeping (random 10 state)))
                             #$nonce
                             (mkdir #$output))))))