ames: account for corked flows during %stir

Also patches the behn scry in %stir handling to be correct for latest behn.
This commit is contained in:
fang 2022-08-03 19:37:53 +02:00 committed by GitHub
parent b860bef066
commit 7c01ee9b35
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -1482,9 +1482,10 @@
=/ 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]
@ -1498,7 +1499,7 @@
%- 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]