diff --git a/minimart/demand-matcher.rkt b/minimart/demand-matcher.rkt index 6153e20..a0e9c48 100644 --- a/minimart/demand-matcher.rkt +++ b/minimart/demand-matcher.rkt @@ -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 diff --git a/minimart/examples/ws-hello.rkt b/minimart/examples/ws-hello.rkt index 491ffbf..9745f71 100644 --- a/minimart/examples/ws-hello.rkt +++ b/minimart/examples/ws-hello.rkt @@ -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)]