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.

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)))