ames: account for corked flows during %stir
Also patches the behn scry in %stir handling to be correct for latest behn.
=/ snds=(list (list [ship bone message-pump-state]))
%+ turn states
|= [=ship peer-state]
- %+ turn ~(tap by snd)
+ %+ murn ~(tap by snd)
|= [=bone =message-pump-state]
- [ship bone message-pump-state]
+ ?: (~(has in closing) bone) ~
+ `[ship bone message-pump-state]
=/ next-wakes
%+ turn `(list [ship bone message-pump-state])`(zing snds)
|= [=ship =bone message-pump-state]
%- silt
;; (list [@da ^duct])
=< q.q %- need %- need
- (rof ~ %b [[our %timers da+now] /])
+ (rof ~ %bx [[our %$ da+now] /debug/timers])
=/ to-stir
%+ skip next-real-wakes
|= [=ship =bone =@da]
