Refactor helper core
This commit is contained in:
parent
e7795f6ae5
commit
fe3dff8caa
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user