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 ()
(let loop ()
(put-message channel '(check-for-idle-resources))
(when (choice-operation
(wrap-operation
(sleep-operation idle-seconds)
(const #t))
(wrap-operation
(wait-operation destroy-condition)
(const #f)))
(when (perform-operation
(choice-operation
(wrap-operation
(sleep-operation idle-seconds)
(const #t))
(wrap-operation
(wait-operation destroy-condition)
(const #f))))
(loop))))))
(with-exception-handler