summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-07-16 09:47:01 +0200
committerLudovic Courtès <ludo@gnu.org>2013-07-16 09:47:48 +0200
commit4b7f3407e97e4ca66f7d58a3515f423f03c671ab (patch)
tree5bd85fe78a45e6319141c2e982f72fb07845a223
parentd409c8ab883542ab903d47a3b83c1ba3ad81d701 (diff)
downloadguix-4b7f3407e97e4ca66f7d58a3515f423f03c671ab.tar.gz
hydra: Honor the `system' argument.
* build-aux/hydra/gnu-system.scm (hydra-jobs): Really look up the
  `system' symbol in ARGUMENTS.
-rw-r--r--build-aux/hydra/gnu-system.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index de3cd1154b..57f98dfa33 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -93,7 +93,7 @@ SYSTEM."
 (define (hydra-jobs store arguments)
   "Return Hydra jobs."
   (define system
-    (or (assoc-ref arguments system)
+    (or (assoc-ref arguments 'system)
         (%current-system)))
 
   (define job-name