diff --git a/knots/resource-pool.scm b/knots/resource-pool.scm index 3638500..73f7083 100644 --- a/knots/resource-pool.scm +++ b/knots/resource-pool.scm @@ -750,7 +750,7 @@ (match waiter (#f (loop (1+ next-resource-id) - (cons resource-details available) + (cons next-resource-id available) waiters)) ((reply . timeout) (if (and timeout