diff --git a/os2-tcp.rkt b/os2-tcp.rkt index 17a05e3..ad193b1 100644 --- a/os2-tcp.rkt +++ b/os2-tcp.rkt @@ -132,6 +132,10 @@ (topic-publisher (tcp-channel any-remote local-addr (wild)) #:virtual? #t)) #:state state #:topic t + ;; Hey, what if the presence we need went away between our + ;; manager spawning us, and us getting to this point? Presence + ;; being "edge-" rather than "level-triggered" means we'll hang + ;; around sadly forever, accepting connections to nowhere. TODO #:on-absence (match t [(or (topic 'publisher (tcp-channel (== local-addr) remote-addr _) _) (topic 'subscriber (tcp-channel remote-addr (== local-addr) _) _))