[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: Rename chunk-map! to chunk-for-each!
From: |
Christopher Baines |
Subject: |
02/04: Rename chunk-map! to chunk-for-each! |
Date: |
Fri, 14 Jan 2022 10:28:19 -0500 (EST) |
cbaines pushed a commit to branch master
in repository data-service.
commit 5ae8b796a7be807cf45a1129aefe749609951782
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Fri Jan 14 15:25:13 2022 +0000
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)