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.
This commit is contained in:
parent
86517de69c
commit
2c04921634
|
@ -606,9 +606,7 @@ defines a total order on machines.)"
|
||||||
((machine1 slot1)
|
((machine1 slot1)
|
||||||
(match b
|
(match b
|
||||||
((machine2 slot2)
|
((machine2 slot2)
|
||||||
(if (pred machine1 machine2)
|
(pred machine1 machine2)))))))
|
||||||
(list machine1 slot1)
|
|
||||||
(list machine2 slot2))))))))
|
|
||||||
|
|
||||||
(let loop ((machines+slots
|
(let loop ((machines+slots
|
||||||
(sort machines+slots
|
(sort machines+slots
|
||||||
|
|
Loading…
Reference in New Issue