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