Changed defaults: no longer complain on supply reduction

2013-10-30 14:42:27 +00:00 · 2013-10-30 14:42:27 +00:00 · dd42701179
parent cb4746033d
commit dd42701179
1 changed files with 2 additions and 2 deletions
--- a/minimart/demand-matcher.rkt
+++ b/minimart/demand-matcher.rkt
@ -20,10 +20,10 @@
 	#:transparent)

 (define (unexpected-supply-decrease r)
-  (error 'demand-matcher "Unexpected decrease in supply for route ~a" r))
+  '())

 (define (default-decrease-handler removed state)
-  (unexpected-supply-decrease removed))
+  state)

 (define (make-demand-matcher demand-is-subscription?
 			     pattern