[no subject]

[Ludovic Courtès]

branch: master
commit bc723b0835442b7e3e2f97957f4aad0161b1d47f
Author: Ludovic Courtès <address@hidden>
Date:   Wed Feb 14 20:14:40 2018 +0100

    examples: random: Make store file names more distinguishable.
    
    * examples/random-jobs.scm (random-derivation): Add 'suffix' parameter
    and honor it.
    (make-random-jobs): Pass a non-empty suffix to 'random-derivation'.
---
 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 9d26892..8fd895a 100644
--- a/examples/random-jobs.scm
+++ b/examples/random-jobs.scm
@@ -29,10 +29,10 @@
       (#:description "dummy job")
       (#:long-description "really dummy job"))))
 
-(define (random-derivation store)
+(define* (random-derivation store #:optional (suffix ""))
   (let ((nonce (random 1e6)))
     (run-with-store store
-      (gexp->derivation "random"
+      (gexp->derivation (string-append "random" suffix)
                         #~(let* ((seed  (logxor #$(cdr (gettimeofday))
                                                 (car (gettimeofday))
                                                 (cdr (gettimeofday))))
@@ -44,7 +44,8 @@
 (define (make-random-jobs store arguments)
   (unfold (cut > <> 10)
           (lambda (i)
-            (make-job (string-append "foo" (number->string i))
-                      (delay (random-derivation store))))
+            (let ((suffix (number->string i)))
+              (make-job (string-append "foo" suffix)
+                        (delay (random-derivation store suffix)))))
           1+
           0))