diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-04-05 17:45:12 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-04-05 17:47:11 +0200 |
| commit | 2feb3b8100d7a6e1db042ef24e9f2a897c953346 (patch) | |
| tree | d4c54c3e617abd29aa77cb98b4e4ea79ddd87500 /examples | |
| parent | f090c0f4786c789070e2eae740914e06ab0ab989 (diff) | |
| download | cuirass-2feb3b8100d7a6e1db042ef24e9f2a897c953346.tar cuirass-2feb3b8100d7a6e1db042ef24e9f2a897c953346.tar.gz | |
evaluate: Pass the file name and revision to the user procedure.
* bin/evaluate.in (main): Always pass an alist as the arguments to PROC,
containing at least 'file-name' and 'revision'.
* examples/random-jobs.scm (make-random-jobs): Display 'file-name' and
'revision' from ARGUMENTS.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/random-jobs.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/examples/random-jobs.scm b/examples/random-jobs.scm index 8fd895a..97ca150 100644 --- a/examples/random-jobs.scm +++ b/examples/random-jobs.scm @@ -42,6 +42,10 @@ (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)) (unfold (cut > <> 10) (lambda (i) (let ((suffix (number->string i))) |