cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/model/derivation.scm
View file

@ -1370,7 +1370,7 @@ INNER JOIN derivation_outputs
ON derivation_outputs.derivation_id = derivations.id ON derivation_outputs.derivation_id = derivations.id
AND vals.output_name = derivation_outputs.name"))))) AND vals.output_name = derivation_outputs.name")))))
(chunk-map! process-chunk (chunk-for-each! process-chunk
1000 1000
(list-copy derivation-ids) (list-copy derivation-ids)
(list-copy derivations))) (list-copy derivations)))

4
guix-data-service/utils.scm
View file

@ -33,7 +33,7 @@
chunk chunk
chunk! chunk!
chunk-map!)) chunk-for-each!))
(define (call-with-time-logging action thunk) (define (call-with-time-logging action thunk)
(simple-format #t "debug: Starting ~A\n" action) (simple-format #t "debug: Starting ~A\n" action)
@ -177,7 +177,7 @@
(chunk! rest max-length)))) (chunk! rest max-length))))
(list lst))) (list lst)))
(define* (chunk-map! proc chunk-size #:rest lsts) (define* (chunk-for-each! proc chunk-size #:rest lsts)
(define (do-one-iteration lsts) (define (do-one-iteration lsts)
(if (> (length (car lsts)) (if (> (length (car lsts))
chunk-size) chunk-size)