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

Add call-with-default-io-waiters

Browse source 
As this is useful when starting threads from a fibers context.
This commit is contained in:
Christopher Baines 2024-10-31 16:44:15 +00:00
parent 55af7c82e8
commit 2d7100e75d
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -52,6 +52,7 @@
with-resource-from-pool with-resource-from-pool
resource-pool-stats resource-pool-stats
call-with-default-io-waiters
make-worker-thread-channel make-worker-thread-channel
%worker-thread-default-timeout %worker-thread-default-timeout
call-with-worker-thread call-with-worker-thread
@ -497,6 +498,14 @@ available. Return the resource once PROC has returned."
(raise-exception (raise-exception
(make-resource-pool-timeout-error)))))) (make-resource-pool-timeout-error))))))
(define (call-with-default-io-waiters thunk)
(parameterize
((current-read-waiter (@@ (ice-9 suspendable-ports)
default-read-waiter))
(current-write-waiter (@@ (ice-9 suspendable-ports)
default-write-waiter)))
(thunk)))
(define %worker-thread-args (define %worker-thread-args
(make-parameter #f)) (make-parameter #f))