From a69bc7071ec05ed896dcc14f613c88023b6b2f80 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 7 Dec 2016 23:58:15 +0100 Subject: [PATCH] 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 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)