Fix adding the resource id to the available list
Some checks are pending
/ test (push) Waiting to run

This commit is contained in:
Christopher Baines 2025-11-25 09:37:29 +00:00
parent 3eba6fc820
commit 04d964a9f8

View file

@ -750,7 +750,7 @@
(match waiter (match waiter
(#f (#f
(loop (1+ next-resource-id) (loop (1+ next-resource-id)
(cons resource-details available) (cons next-resource-id available)
waiters)) waiters))
((reply . timeout) ((reply . timeout)
(if (and timeout (if (and timeout