~ruther/guix-local

2c049216340cf25660b39b3f358ad112cbd1a798 — Mark H Weaver 10 years ago 86517de
offload: Fix sorting bug in 'choose-build-machine'.

* guix/scripts/offload.scm (choose-build-machine)[undecorate]: Return the
  boolean result of pred instead of the best machine+slot.
1 files changed, 1 insertions(+), 3 deletions(-)

M guix/scripts/offload.scm
M guix/scripts/offload.scm => guix/scripts/offload.scm +1 -3
@@ 606,9 606,7 @@ defines a total order on machines.)"
          ((machine1 slot1)
           (match b
             ((machine2 slot2)
              (if (pred machine1 machine2)
                  (list machine1 slot1)
                  (list machine2 slot2))))))))
              (pred machine1 machine2)))))))

    (let loop ((machines+slots
                (sort machines+slots