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

Fix listing resource pool resources

Browse source
This commit is contained in:
Christopher Baines 2025-11-25 14:26:39 +00:00
parent 8100d36aa5
commit 9c123bbfa9
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
knots/resource-pool.scm
View file

@ -391,7 +391,7 @@
(('list-resources reply) (('list-resources reply)
(spawn-fiber (spawn-fiber
(lambda () (lambda ()
(put-message reply (list-copy resources)))) (put-message reply (vector->list resources))))
(loop available (loop available
waiters)) waiters))
@ -967,7 +967,9 @@
(('list-resources reply) (('list-resources reply)
(spawn-fiber (spawn-fiber
(lambda () (lambda ()
(put-message reply (list-copy resources)))) (put-message reply (hash-map->list
(lambda (_ value) value)
resources))))
(loop next-resource-id (loop next-resource-id
available available