bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-29 04:01:28 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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:
Mark H Weaver 2015-06-17 13:55:21 -04:00
parent 86517de69c
commit 2c04921634
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/scripts/offload.scm
View file

@ -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