ames: drop pleas on dead bones
++ run-message-pump
|= [=bone task=message-pump-task]
^+ peer-core
+ ?: ?& (~(has in closing.peer-state) bone)
+ !=(task [%memo (dedup-message (jim [%$ /flow [%cork ~]]))])
+ ==
+ ~> %slog.0^leaf/"ames: %memo on closing bone {<bone>}"
+ peer-core
+ ?: (~(has in corked.peer-state) bone)
+ ~> %slog.0^leaf/"ames: %memo on corked bone {<bone>}"
+ peer-core
:: pass .task to the |message-pump and apply state mutations
::
=/ =message-pump-state
