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