I conjecture that the common case will see demand- and supply-levels of zero

This commit is contained in:
Tony Garnock-Jones 2013-10-29 15:41:02 +00:00
parent ceada73709
commit 9242d264b3
2 changed files with 2 additions and 4 deletions

View File

@ -109,8 +109,8 @@
[decrease-handler unexpected-supply-decrease]
#:demand-is-subscription? [demand-is-subscription? #t]
#:meta-level [meta-level 0]
#:demand-level demand-level
#:supply-level supply-level)
#:demand-level [demand-level 0]
#:supply-level [supply-level 0])
(define d (make-demand-matcher demand-is-subscription?
pattern
meta-level

View File

@ -10,8 +10,6 @@
(spawn-demand-matcher (websocket-message any-client server-id ?)
#:demand-is-subscription? #f
#:demand-level 0
#:supply-level 0
(match-lambda ;; arrived-demand-route, i.e. new connection publisher
[(route _ (websocket-message c _ _) _ _)
(spawn-connection-handler c)]