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 /bin | |
| 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 'bin')
| -rw-r--r-- | bin/evaluate.in | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/bin/evaluate.in b/bin/evaluate.in index c8d83e6..6a2678e 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -70,11 +70,13 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (let* ((proc-name (assq-ref spec #:proc)) (proc (module-ref %user-module proc-name)) (commit (assq-ref spec #:current-commit)) - (args `((revision . ,commit) - (file-name . ,source) + (name (assq-ref spec #:name)) + (args `((,(string->symbol name) + (revision . ,commit) + (file-name . ,source)) ,@(or (assq-ref spec #:arguments) '()))) (thunks (proc store args)) - (eval `((#:specification . ,(assq-ref spec #:name)) + (eval `((#:specification . ,name) (#:revision . ,commit)))) (pretty-print `(evaluation ,eval |