diff --git a/syndicate/distributed/federation.rkt b/syndicate/distributed/federation.rkt index 8891b87..1ed9c3f 100644 --- a/syndicate/distributed/federation.rkt +++ b/syndicate/distributed/federation.rkt @@ -346,6 +346,16 @@ local captures))) (log-syndicate/federation-debug "-"))) + (stop-when + (message (server-envelope management-scope + (message-poa->server linkid (Err $detail $context)))) + (log-syndicate/federation-error + "Received Err from peer link ~v: detail ~v; context ~v" + linkid + detail + context) + (reset-turn! turn)) + (on (message (server-envelope management-scope (message-poa->server linkid (Turn $items)))) (for [(item (in-list items))]