diff --git a/imperative/distributed/protocol.rkt b/imperative/distributed/protocol.rkt index 35a67e5..8f7c540 100644 --- a/imperative/distributed/protocol.rkt +++ b/imperative/distributed/protocol.rkt @@ -17,6 +17,6 @@ (message-struct force-server-disconnect (address)) ;; Federation configuration -;; e.g. (federated-uplink "broker" (server-tcp-connection "peer.example" 8001 "broker2")) +;; e.g. (federated-uplink "scope1" (server-tcp-connection "peer.example" 8001 "scope2")) (assertion-struct federated-uplink (scope peer)) (assertion-struct federated-uplink-connected (link)) diff --git a/imperative/examples/server-chat-client.rkt b/imperative/examples/server-chat-client.rkt index 0341eb5..0b23855 100644 --- a/imperative/examples/server-chat-client.rkt +++ b/imperative/examples/server-chat-client.rkt @@ -9,7 +9,7 @@ (define host (make-parameter "localhost")) (define port (make-parameter 8001)) -(define scope (make-parameter "broker")) +(define scope (make-parameter "local")) (module+ main (require racket/cmdline)