diff --git a/imperative/distributed/federation.rkt b/imperative/distributed/federation.rkt index a03da7a..8891b87 100644 --- a/imperative/distributed/federation.rkt +++ b/imperative/distributed/federation.rkt @@ -408,7 +408,8 @@ (err! 'nonexistent-endpoint item)] [localid (link-subs (hash-remove (link-subs) subid)) - (unsubscribe! localid linkid)])] + (unsubscribe! localid linkid)]) + (extend-turn! turn (End subid))] [(End localid) (for [(captures (in-set (hash-ref (link-matches) localid set)))] (remove-match! localid captures linkid))