gall: use spore tag for +molt subscription killing
WIP: kiln crashes after upgrade with a ! kiln: %base not installed
:: pupal gall core, on upgrade
::
=< =* adult-gate .
+ =| spore-tag=@tas
=| =spore
|= [now=@da eny=@uvJ rof=roof]
=* pupal-gate .
$(apps t.apps, mo-core ap-abet:ap-core)
:: kill subscriptions when upgrading to gall request queue fix
::
- =. mo-core
+ =? mo-core (lth spore-tag %9)
|- ^+ mo-core
?~ apps mo-core
+ ~> %slog.[0 leaf+"gall: +ap-kill-down {<dap.i.apps>}"]
=/ ap-core (ap-abut:ap:mo-core i.apps)
- =? ap-core (lth -.spore %9)
- ~> %slog.[0 leaf+"gall: running +ap-kill-down"]
+ =. ap-core
=/ boats=(list [=wire =dock])
~(tap in ~(key by boat.egg.i.apps))
|- ^+ ap-core
::
++ load
|^ |= old=spore-any
+ =. spore-tag `@tas`-.old
=? old ?=(%7 -.old) (spore-7-to-8 old)
=? old ?=(%8 -.old) (spore-8-to-9 old)
?> ?=(%9 -.old)
