docket: force uninstall %hodl agent

This commit is contained in:
yosoyubik 2022-04-27 18:52:23 +02:00
parent 9bb844ada9
commit bb02368546

View File

@ -56,8 +56,12 @@
=? old ?=(?(~ ^) -.old) [%1 old]
=^ cards old
?. ?=(%1 -.old) `old
=/ rein=cage kiln-rein+!>([%base %.y ~ ~])
=/ nuke=cage kiln-uninstall+!>(%hodl)
:_ old(- %2)
[%pass /rein %agent [our.bowl %hood] %poke kiln-rein+!>([%base %.y ~ ~])]~
:~ [%pass /rein %agent [our.bowl %hood] %poke rein]
[%pass /nuke %agent [our.bowl %hood] %poke nuke]
==
?> ?=(%2 -.old)
[cards this(state [old inflate-cache])]
::
@ -202,7 +206,8 @@
=^ cards state
?+ wire ~&(bad-docket-take+wire `state)
~ `state
[%rein ~] `state
[%rein ~] ~&(%reined `state)
[%nuke ~] ~&(%nuked `state)
[%kiln ~] take-kiln
[%charge @ *] (take-charge i.t.wire t.t.wire)
==