Unsubscribe when interest in a remote topic goes away
This commit is contained in:
parent
2fa3f13c9b
commit
01d8ba9456
|
@ -72,6 +72,8 @@
|
||||||
(hub.topic . ,full-topic)))))
|
(hub.topic . ,full-topic)))))
|
||||||
(established-upstream-hub #f)))
|
(established-upstream-hub #f)))
|
||||||
|
|
||||||
|
(on-stop (unsubscribe!))
|
||||||
|
|
||||||
(begin/dataflow
|
(begin/dataflow
|
||||||
(when (not (equal? (current-upstream-hub) (established-upstream-hub)))
|
(when (not (equal? (current-upstream-hub) (established-upstream-hub)))
|
||||||
(unsubscribe!)
|
(unsubscribe!)
|
||||||
|
|
Loading…
Reference in New Issue