04/04: hydra: Fix wrong-num-args error when computing the cross jobs.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit a69bc7071ec05ed896dcc14f613c88023b6b2f80
Author: Ludovic Courtès <address@hidden>
Date:   Wed Dec 7 23:58:15 2016 +0100

    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.
---
 build-aux/hydra/gnu-system.scm |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 9ad8c8a..cddda85 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)