#lang imperative-syndicate (provide (all-defined-out)) ;; Client protocol (assertion-struct to-server (address assertion)) (assertion-struct from-server (address assertion)) (assertion-struct server-connection (address)) (assertion-struct server-connected (address)) (message-struct force-server-disconnect (address))