Always attempt to resubscribe on ++quit.
::
|= wir/wire
^- (quip move _+>)
- :_ +>
- ?. =(src.bol our.bol)
- ~& [%kicked-by src.bol wir]
- ~
- ~& [%self-quit--resubbing wir]
- [(wire-to-peer wir) ~]
+ [[(wire-to-peer wir) ~] +>]
::
++ quit-circle
:> dropped circle sub
%+ etch-circle [%circle wir]
|= {nom/naem src/source}
%- pre-bake
- :: when we got kicked, don't resub, remove source.
- ?. =(src.bol our.bol)
- ta-done:(ta-action:ta %source nom | [src ~ ~])
ta-done:(ta-resub:ta nom src)
::
++ coup-repeat
