2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00

Rename chunk-map! to chunk-for-each!

As that better reflects what it does.
This commit is contained in:
Christopher Baines 2022-01-14 15:25:13 +00:00
parent fcf1177d2c
commit 5ae8b796a7
2 changed files with 6 additions and 6 deletions

View file

@ -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

View file

@ -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)