chat-hook: rerun fix on OTA

This commit is contained in:
Liam Fitzgerald 2020-07-28 12:16:48 +10:00
parent ccf9296bab
commit 66e665d683

View File

@ -19,8 +19,10 @@
state-2
state-3
state-4
state-5
==
::
+$ state-5 [%5 state-base]
+$ state-4 [%4 state-base]
+$ state-3 [%3 state-base]
+$ state-2 [%2 state-base]
@ -48,7 +50,7 @@
$% [%chat-update update:store]
==
--
=| state-4
=| state-5
=* state -
::
%- agent:dbug
@ -77,14 +79,14 @@
=/ old !<(versioned-state old-vase)
=| cards=(list card)
|-
?: ?=(%4 -.old)
?: ?=(%5 -.old)
[cards this(state old)]
?: ?=(%3 -.old)
?: ?=(?(%3 %4) -.old)
=. cards
%+ weld cards
^- (list card)
[%pass /pokeme %agent [our.bol %chat-hook] %poke %noun !>(%fix-dm)]~
$(-.old %4)
$(-.old %5)
?: ?=(%2 -.old)
=. cards
%+ weld cards