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

gall: run +ap-kill-down only once

Browse Source
This commit is contained in:
yosoyubik 2022-06-30 17:06:22 +02:00
parent 354a914c82
commit 4c8a4ecb0e
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
pkg/arvo/sys/vane/gall.hoon
View File

@ -221,12 +221,15 @@
=^ tan ap-core (ap-install:ap-core `p.old-state.egg.i.apps)
?^ tan
(mean u.tan)
=/ boats=(list [=wire =dock])
~(tap in ~(key by boat.egg.i.apps))
|- ^+ ap-core
?~ boats ap-core
=/ [=wire =dock] i.boats
$(boats t.boats, ap-core (ap-kill-down:ap-core wire dock))
=? ap-core =(%8 -.spore)
~> %slog.[0 leaf+"gall: running +ap-kill-down"]
=/ boats=(list [=wire =dock])
~(tap in ~(key by boat.egg.i.apps))
|- ^+ ap-core
?~ boats ap-core
=/ [=wire =dock] i.boats
$(boats t.boats, ap-core (ap-kill-down:ap-core wire dock))
ap-core
$(apps t.apps, mo-core ap-abet:ap-core)
=. mo-core (mo-subscribe-to-agent-builds:mo-core now)
=^ moves adult-gate mo-abet:mo-core