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

Guard against the remove message not working

Browse source
This commit is contained in:
Christopher Baines 2025-02-03 09:55:57 +01:00
parent 2910e66150
commit 823cd95628
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
knots/resource-pool.scm
View file

@ -341,7 +341,14 @@
start start
(cdr end)))) (cdr end))))
(loop (remove-at-index! resources index) (loop (if index
(remove-at-index! resources index)
(begin
(simple-format
(current-error-port)
"resource pool error: unable to remove ~A\n"
resource)
resources))
available ; resource shouldn't be in this list available ; resource shouldn't be in this list
waiters waiters
(remove-at-index! (remove-at-index!