ames: delete naxplanation flows if bone is corked
++ on-pump-done
|= [=message-num error=(unit error)]
^+ peer-core
+ ?: ?& =(1 (end 0 bone))
+ =(1 (end 0 (rsh 0 bone)))
+ (~(has in corked.peer-state) (mix 0b10 bone))
+ ==
+ %- %+ trace msg.veb
+ =/ dat [her.channel bone=bone message-num=message-num -.task]
+ |.("remove naxplanation flow {<dat>}")
+ =. snd.peer-state
+ (~(del by snd.peer-state) bone)
+ peer-core
:: if odd bone, ack is on "subscription update" message; no-op
::
?: =(1 (end 0 bone))
::
(emit [/ames]~ %pass wire %b %rest next-wake)
=/ nax-bone=^bone (mix 0b10 bone)
- =. snd.peer-state
- :: unconditionally delete possible naxplanations flows that
- :: could have been sent if receivig a cork before upgrade
- ::
- (~(del by snd.peer-state) nax-bone)
=. peer-state
=, peer-state
%_ peer-state
