diff options
| author | Mark H Weaver <mhw@netris.org> | 2015-06-18 01:32:37 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2015-06-18 01:32:37 -0400 |
| commit | 2abf678682c42842c16e026c51d96b1fa86be88f (patch) | |
| tree | 7bd59bd08dbaf00f23f37a91d1e7ae3d7a915843 /guix/scripts/offload.scm | |
| parent | 9ae1e920718e95577c12de890754b6a6a4ff70a1 (diff) | |
| parent | c362a40a5825faafc76b72f69fb6595fa29d3f60 (diff) | |
| download | guix-patches-2abf678682c42842c16e026c51d96b1fa86be88f.tar guix-patches-2abf678682c42842c16e026c51d96b1fa86be88f.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/scripts/offload.scm')
| -rw-r--r-- | 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 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 |