From 38d367d71c1513a905d8e6006134bafe68b7e580 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 6 Apr 2018 10:39:23 +0200 Subject: 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. --- bin/evaluate.in | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'bin') 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 -- cgit v1.2.3