Note re presence glitch problem. See also journal entry.
This commit is contained in:
parent
ba5c639814
commit
83cae7075e
|
@ -132,6 +132,10 @@
|
||||||
(topic-publisher (tcp-channel any-remote local-addr (wild)) #:virtual? #t))
|
(topic-publisher (tcp-channel any-remote local-addr (wild)) #:virtual? #t))
|
||||||
#:state state
|
#:state state
|
||||||
#:topic t
|
#: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
|
#:on-absence (match t
|
||||||
[(or (topic 'publisher (tcp-channel (== local-addr) remote-addr _) _)
|
[(or (topic 'publisher (tcp-channel (== local-addr) remote-addr _) _)
|
||||||
(topic 'subscriber (tcp-channel remote-addr (== local-addr) _) _))
|
(topic 'subscriber (tcp-channel remote-addr (== local-addr) _) _))
|
||||||
|
|
Loading…
Reference in New Issue