ames: +on-stir clean up comments

This commit is contained in:
Ted Blackman 2022-08-23 13:31:10 +03:00
parent 9439841ce8
commit 9abe49489d

View File

@ -1469,7 +1469,7 @@
=. peer-core (run-message-pump:peer-core i.bones %prod ~) =. peer-core (run-message-pump:peer-core i.bones %prod ~)
$(bones t.bones) $(bones t.bones)
-- --
:: +on-stir: start timers for any flow that lack them :: +on-stir: recover from timer desync, setting new timers as needed
:: ::
:: .arg is unused, meant to ease future debug commands :: .arg is unused, meant to ease future debug commands
:: ::
@ -1495,7 +1495,7 @@
(rof ~ %bx [[our %$ da+now] /debug/timers]) (rof ~ %bx [[our %$ da+now] /debug/timers])
(skim tim |=([@da hen=^duct] ?=([[%ames %pump *] *] hen))) (skim tim |=([@da hen=^duct] ?=([[%ames %pump *] *] hen)))
:: ::
:: %wait on missing flows :: set timers for flows that should have one set but don't
:: ::
=. event-core =. event-core
%- ~(rep in (~(dif in want) have)) %- ~(rep in (~(dif in want) have))
@ -1503,7 +1503,7 @@
?> ?=([^ *] hen) ?> ?=([^ *] hen)
(emit:this ~[/ames] %pass t.i.hen %b %wait wen) (emit:this ~[/ames] %pass t.i.hen %b %wait wen)
:: ::
:: %rest on this bullshit :: cancel timers for flows that have one set but shouldn't
:: ::
%- ~(rep in (~(dif in have) want)) %- ~(rep in (~(dif in have) want))
|= [[wen=@da hen=^duct] this=_event-core] |= [[wen=@da hen=^duct] this=_event-core]