From 38d367d71c1513a905d8e6006134bafe68b7e580 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
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.
---
 examples/random-jobs.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'examples')

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)))
-- 
cgit v1.2.3