Changed defaults: no longer complain on supply reduction
This commit is contained in:
parent
cb4746033d
commit
dd42701179
|
@ -20,10 +20,10 @@
|
||||||
#:transparent)
|
#:transparent)
|
||||||
|
|
||||||
(define (unexpected-supply-decrease r)
|
(define (unexpected-supply-decrease r)
|
||||||
(error 'demand-matcher "Unexpected decrease in supply for route ~a" r))
|
'())
|
||||||
|
|
||||||
(define (default-decrease-handler removed state)
|
(define (default-decrease-handler removed state)
|
||||||
(unexpected-supply-decrease removed))
|
state)
|
||||||
|
|
||||||
(define (make-demand-matcher demand-is-subscription?
|
(define (make-demand-matcher demand-is-subscription?
|
||||||
pattern
|
pattern
|
||||||
|
|
Loading…
Reference in New Issue