cbaines/guile-knots
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix idle resource removal in the resource pool

Browse source
This commit is contained in:
Christopher Baines 2025-02-03 12:16:16 +01:00
parent a2ab770536
commit bddc6c04ad
2 changed files with 23 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
knots/resource-pool.scm
View file

@ -391,16 +391,10 @@
(spawn-fiber-to-destroy-resource resource))
resources-to-destroy))
(loop (lset-difference eq? resources resources-to-destroy)
(loop resources
(lset-difference eq? available resources-to-destroy)
waiters
(filter-map
(lambda (resource last-used)
(if (memq resource resources-to-destroy)
#f
last-used))
resources
resources-last-used))))
resources-last-used)))
(('destroy reply)
(if (null? resources)