Rename chunk-map! to chunk-for-each!
As that better reflects what it does.
This commit is contained in:
parent
fcf1177d2c
commit
5ae8b796a7
2 changed files with 6 additions and 6 deletions
|
|
@ -1370,7 +1370,7 @@ INNER JOIN derivation_outputs
|
|||
ON derivation_outputs.derivation_id = derivations.id
|
||||
AND vals.output_name = derivation_outputs.name")))))
|
||||
|
||||
(chunk-map! process-chunk
|
||||
(chunk-for-each! process-chunk
|
||||
1000
|
||||
(list-copy derivation-ids)
|
||||
(list-copy derivations)))
|
||||
|
|
|
|||
|
|
@ -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…
Add table
Add a link
Reference in a new issue