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:
parent
fcf1177d2c
commit
5ae8b796a7
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue