ames: clean & re-set recork timer during %stir

Pre-release ships may have multiple recork timers. This ensures that,
after stir, we always have exactly one.
This commit is contained in:
fang 2022-08-25 14:42:16 +02:00
parent e2d546c4c2
commit 81462da7aa
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -1487,6 +1487,8 @@
?~ tim acc
%- ~(put in acc)
[u.tim `^duct`~[ames+(make-pump-timer-wire who b) /ames]]
=. want
(~(put in want) (add now ~d1) ~[/ames/recork /ames])
::
=/ have
%- ~(gas in *(set [@da ^duct]))
@ -1494,7 +1496,7 @@
;; (list [@da ^duct])
=< q.q %- need %- need
(rof ~ %bx [[our %$ da+now] /debug/timers])
(skim tim |=([@da hen=^duct] ?=([[%ames %pump *] *] hen)))
(skim tim |=([@da hen=^duct] ?=([[%ames ?(%pump %recork) *] *] hen)))
::
:: set timers for flows that should have one set but don't
::