chat-hook: rerun fix on OTA
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]
$% [%chat-update update:store]
==
--
-=| state-4
+=| state-5
=* state -
::
%- agent:dbug
=/ 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
