diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-04-06 10:39:23 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-04-06 10:43:23 +0200 |
| commit | 38d367d71c1513a905d8e6006134bafe68b7e580 (patch) | |
| tree | 844c16331d425ccef865ce88ac0b5108f3a6406d /examples | |
| parent | 074b9d02f1ca01007f39adbc019763027a51d9bd (diff) | |
| download | cuirass-38d367d71c1513a905d8e6006134bafe68b7e580.tar cuirass-38d367d71c1513a905d8e6006134bafe68b7e580.tar.gz | |
evaluate: Really pass arguments like Hydra.
* bin/evaluate.in (main): Use SPEC's #:name as a key in ARGS.
* examples/random-jobs.scm (make-random-jobs): Adjust accordingly.
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))) |