diff options
| -rw-r--r-- | guix-build-coordinator/build-allocator.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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))))))) |