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.
7 years ago · 2c04921634
1 changed files with 1 additions and 3 deletions
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@ -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