gall: fix +ap-abed bug

This was simply due to mistranslating the previous code.
This commit is contained in:
Jared Tobin 2019-05-30 12:10:52 +08:00 committed by Jared Tobin
parent d19047aba6
commit c512eba4b1
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4

View File

@ -1175,31 +1175,26 @@
=/ =agent
=/ running (~(got by running.apps.gall) term)
=/ =stats
=/ change +(change.stats.running)
=/ trop (shaz (mix (add term change) eny))
[change=change eny=trop time=now]
:+ +(change.stats.running)
(shaz (mix (add term change.stats.running) eny))
now
running(stats stats)
::
=/ maybe-bone (~(get by bone-map.ducts.agent) hen)
::
=. dap term
=. pry privilege
=. sat agent
::
?^ maybe-bone
=/ bone u.maybe-bone
%_ ap-state
dap term
pry privilege
sat agent
ost bone
==
ap-state(ost u.maybe-bone)
::
=/ =ducts
=/ bone +(bone.ducts.agent)
:+ bone=bone
bone-map=(~(put by bone-map.ducts.agent) hen bone)
duct-map=(~(put by duct-map.ducts.agent) bone hen)
:+ +(bone.ducts.agent)
(~(put by bone-map.ducts.agent) hen bone.ducts.agent)
(~(put by duct-map.ducts.agent) bone.ducts.agent hen)
::
~& [%ap-updating-bone-to bone.ducts.agent]
~& [%ap-updating-ducts-to ducts]
%= ap-state
%_ ap-state
ost bone.ducts.agent
ducts.sat ducts
==