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

Add fibers-promise-reset

Browse source
This commit is contained in:
Christopher Baines 2024-10-17 22:28:26 +02:00
parent d53b91dd91
commit 38e5282546
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -60,6 +60,7 @@
fibers-delay fibers-delay
fibers-force fibers-force
fibers-promise-reset
fibers-batch-for-each fibers-batch-for-each
fibers-for-each fibers-for-each
@ -797,6 +798,10 @@ If already in the worker thread, call PROC immediately."
(raise-exception res) (raise-exception res)
(apply values res)))))) (apply values res))))))
(define (fibers-promise-reset fp)
(atomic-box-set! (fibers-promise-values-box fp)
#f))
(define (fibers-batch-for-each proc batch-size . lists) (define (fibers-batch-for-each proc batch-size . lists)
;; Like split-at, but don't care about the order of the resulting lists, and ;; Like split-at, but don't care about the order of the resulting lists, and
;; don't error if the list is shorter than i elements ;; don't error if the list is shorter than i elements