summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-12-07 23:58:15 +0100
committerLudovic Courtès <ludo@gnu.org>2016-12-08 00:28:48 +0100
commita69bc7071ec05ed896dcc14f613c88023b6b2f80 (patch)
treebd6729c39241cebc34c0e3955731407218d923b8
parent530b8bda1f640ad0c222f0cddc9e15e4572fc459 (diff)
downloadguix-a69bc7071ec05ed896dcc14f613c88023b6b2f80.tar.gz
hydra: Fix wrong-num-args error when computing the cross jobs.
Fixes a regression introduced in
dea91108cf6b9bb46071c8f65c9abf834c5b064d.

* build-aux/hydra/gnu-system.scm (hydra-jobs)[cross-jobs](either): Add
third parameter and honor it.
-rw-r--r--build-aux/hydra/gnu-system.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 9ad8c8a94d..cddda85eac 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -283,9 +283,9 @@ valid."
       (and (string-contains target "mingw")
            (not (string=? "x86_64-linux" system))))
 
-    (define (either proc1 proc2)
+    (define (either proc1 proc2 proc3)
       (lambda (x)
-        (or (proc1 x) (proc2 x))))
+        (or (proc1 x) (proc2 x) (proc3 x))))
 
     (append-map (lambda (target)
                   (map (lambda (package)