01/01: offload: Fix sorting bug in 'choose-build-machine'.

[Mark H. Weaver]

mhw pushed a commit to branch master
in repository guix.

commit 2c049216340cf25660b39b3f358ad112cbd1a798
Author: Mark H Weaver <address@hidden>
Date:   Wed Jun 17 13:55:21 2015 -0400

    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.
---
 guix/scripts/offload.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)

diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index e651257..e6be8b4 100644
--- 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