Fix a copy/paste error in decrement-resource-checkout-count!
This commit is contained in:
parent
d0ff89023b
commit
781c8cf9db
1 changed files with 1 additions and 1 deletions
|
|
@ -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
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue