urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-20 01:01:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkg/arvo/sys/vane/ames.hoon
View File

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