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

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