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