group-store: only run rebuild once
state-one
state-two
state-three
+ state-four
==
::
+$ state-zero
=groups
wait=(set ship)
==
+::
++$ state-four
+ $: %4
+ =groups
+ wait=(set ship)
+ ==
--
::
-=| state-three
+=| state-four
=* state -
::
%- agent:dbug
=| cards=(list card)
|^
?- -.old
+ %4 [(flop cards) this(state old)]
+ ::
%3
- :_ this(state old)
+ %_ $
+ old [%4 +.old]
+ cards
:_ cards
[%pass /pyre/rebuild %agent [our dap]:bowl %poke noun+!>(%rebuild)]
+ ==
::
%2
%_ $
|= arc=*
^- (quip card _state)
|^
- =/ sty=state-three
- [%3 (remake-groups ;;((tree [resource tree-group]) +.arc)) ~]
+ =/ sty=state-four
+ [%4 (remake-groups ;;((tree [resource tree-group]) +.arc)) ~]
:_ sty
%+ roll ~(tap by groups.sty)
|= [[rid=resource grp=group] out=(list card)]
