diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/random-jobs.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/examples/random-jobs.scm b/examples/random-jobs.scm index 97ca150..78a09f4 100644 --- a/examples/random-jobs.scm +++ b/examples/random-jobs.scm @@ -42,10 +42,12 @@ (mkdir #$output)))))) (define (make-random-jobs store arguments) - (format (current-error-port) - "evaluating random jobs from directory ~s, commit ~s~%" - (assq-ref arguments 'file-name) - (assq-ref arguments 'revision)) + (let ((random (assq-ref arguments 'random))) + (format (current-error-port) + "evaluating random jobs from directory ~s, commit ~s~%" + (assq-ref random 'file-name) + (assq-ref random 'revision))) + (unfold (cut > <> 10) (lambda (i) (let ((suffix (number->string i))) |