From 5ae8b796a7be807cf45a1129aefe749609951782 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 14 Jan 2022 15:25:13 +0000
Subject: [PATCH] Rename chunk-map! to chunk-for-each!

As that better reflects what it does.
---
 guix-data-service/model/derivation.scm | 8 ++++----
 guix-data-service/utils.scm            | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm
index 9b88fc1..fddf0e3 100644
--- a/guix-data-service/model/derivation.scm
+++ b/guix-data-service/model/derivation.scm
@@ -1370,10 +1370,10 @@ INNER JOIN derivation_outputs
   ON derivation_outputs.derivation_id = derivations.id
  AND vals.output_name = derivation_outputs.name")))))
 
-  (chunk-map! process-chunk
-              1000
-              (list-copy derivation-ids)
-              (list-copy derivations)))
+  (chunk-for-each! process-chunk
+                   1000
+                   (list-copy derivation-ids)
+                   (list-copy derivations)))
 
 (define (select-from-derivation-source-files store-paths)
   (string-append
diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm
index 483f3ee..14721b1 100644
--- a/guix-data-service/utils.scm
+++ b/guix-data-service/utils.scm
@@ -33,7 +33,7 @@
 
             chunk
             chunk!
-            chunk-map!))
+            chunk-for-each!))
 
 (define (call-with-time-logging action thunk)
   (simple-format #t "debug: Starting ~A\n" action)
@@ -177,7 +177,7 @@
                 (chunk! rest max-length))))
       (list lst)))
 
-(define* (chunk-map! proc chunk-size #:rest lsts)
+(define* (chunk-for-each! proc chunk-size #:rest lsts)
   (define (do-one-iteration lsts)
     (if (> (length (car lsts))
            chunk-size)