Fix a copy/paste error in decrement-resource-checkout-count!

This commit is contained in:
Christopher Baines 2026-03-23 12:20:22 +00:00
parent d0ff89023b
commit 781c8cf9db

View file

@ -138,7 +138,7 @@
(define-inlinable (decrement-resource-checkout-count! resource) (define-inlinable (decrement-resource-checkout-count! resource)
(set-resource-details-checkout-count! (set-resource-details-checkout-count!
resource resource
(1+ (resource-details-checkout-count resource)))) (1- (resource-details-checkout-count resource))))
(define (spawn-fiber-for-checkout channel (define (spawn-fiber-for-checkout channel
reply-channel reply-channel