Refactor helper core

This commit is contained in:
ronreg-ribdev 2021-01-02 03:23:43 -08:00
parent e7795f6ae5
commit fe3dff8caa

View File

@ -11,11 +11,12 @@
+$ card card:agent:gall +$ card card:agent:gall
-- --
^- agent:gall ^- agent:gall
=<
=* state :- %0 =* state :- %0
:* :*
[%access count=0] [%access count=0]
== ==
|^
:: Main gall core
|_ bol=bowl:gall |_ bol=bowl:gall
+* this . +* this .
def ~(. (default-agent this %|) bol) def ~(. (default-agent this %|) bol)
@ -71,7 +72,6 @@
++ on-fail on-fail:def ++ on-fail on-fail:def
-- --
:: Helper core :: Helper core
|%
++ handle-action ++ handle-action
|= action=action:browsermanager |= action=action:browsermanager
^- (list card) ^- (list card)