cbaines/guile-knots
1
Fork 0
Code Issues Pull requests Activity Actions

Fix a resource pool bug with idle seconds
Some checks failed
/ test (push) Has been cancelled
Details

Browse source 
Actually perform the choice operation.
This commit is contained in:
Christopher Baines 2025-11-26 10:06:20 +00:00
parent 05f7daf0e9
commit a8e07b738b
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
knots/resource-pool.scm
View file

@ -1117,13 +1117,14 @@
(lambda () (lambda ()
(let loop () (let loop ()
(put-message channel '(check-for-idle-resources)) (put-message channel '(check-for-idle-resources))
(when (choice-operation (when (perform-operation
(wrap-operation (choice-operation
(sleep-operation idle-seconds) (wrap-operation
(const #t)) (sleep-operation idle-seconds)
(wrap-operation (const #t))
(wait-operation destroy-condition) (wrap-operation
(const #f))) (wait-operation destroy-condition)
(const #f))))
(loop)))))) (loop))))))
(with-exception-handler (with-exception-handler