diff --git a/knots/resource-pool.scm b/knots/resource-pool.scm index 5a8e2e0..8092a3a 100644 --- a/knots/resource-pool.scm +++ b/knots/resource-pool.scm @@ -138,7 +138,7 @@ (define-inlinable (decrement-resource-checkout-count! resource) (set-resource-details-checkout-count! resource - (1+ (resource-details-checkout-count resource)))) + (1- (resource-details-checkout-count resource)))) (define (spawn-fiber-for-checkout channel reply-channel