[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Mark H. Weaver
Subject: 01/01: offload: Fix sorting bug in 'choose-build-machine'.
Date: Wed, 17 Jun 2015 19:33:23 +0000

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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]