From 869e9db797201691cbb55aa08a615ee662e43cdc Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 23 Dec 2020 19:49:11 +0000 Subject: Maintain build order when breaking builds in to sublists This might help, depending on whether the order they come out of the database. --- guix-build-coordinator/build-allocator.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'guix-build-coordinator') diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm index 2fc1a27..210598f 100644 --- a/guix-build-coordinator/build-allocator.scm +++ b/guix-build-coordinator/build-allocator.scm @@ -186,7 +186,7 @@ (current-priority-builds '()) (current-priority (build-priority (first all-builds)))) (if (null? builds) - (reverse (cons current-priority-builds result)) + (reverse (cons (reverse current-priority-builds) result)) (let ((build (car builds))) (if (= (build-priority build) current-priority) @@ -194,7 +194,7 @@ (cdr builds) (cons build current-priority-builds) current-priority) - (loop (cons current-priority-builds result) + (loop (cons (reverse current-priority-builds) result) (cdr builds) (list build) (build-priority build))))))) -- cgit v1.2.3