From cee8868bfdeadbe8770f3ee9dc282ed8b1f36e29 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 3 Nov 2024 21:24:24 +0000 Subject: [PATCH] Refactor --- guix-data-service/jobs/load-new-guix-revision.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 1122342..fa1d01a 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1944,8 +1944,10 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1" (with-time-logging (simple-format #f "getting derivations for ~A" (cons system target)) (let loop ((start-index 0)) - (let* ((count - (if (>= (+ start-index chunk-size) packages-count) + (let* ((last-chunk? + (>= (+ start-index chunk-size) packages-count)) + (count + (if last-chunk? (- packages-count start-index) chunk-size)) (chunk @@ -1963,7 +1965,7 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1" (vector-copy! derivations-vector start-index chunk) - (unless (>= (+ start-index chunk-size) packages-count) + (unless last-chunk? (loop (+ start-index chunk-size)))))) derivations-vector))