summaryrefslogtreecommitdiff
path: root/guix/scripts/offload.scm
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2015-06-17 13:55:21 -0400
committerMark H Weaver <mhw@netris.org>2015-06-17 15:33:08 -0400
commit2c049216340cf25660b39b3f358ad112cbd1a798 (patch)
treedd930a40a6c7c140552ea998e7cf289b67f56f3b /guix/scripts/offload.scm
parent86517de69c0626f60f60b81c42747cb19bafa69b (diff)
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.
Diffstat (limited to 'guix/scripts/offload.scm')
-rw-r--r--guix/scripts/offload.scm4
1 files changed, 1 insertions, 3 deletions
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index e65125741f..e6be8b4465 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