mall: add flag to default-agent to assist with errors

This commit is contained in:
Philip Monk 2019-11-08 13:56:35 -08:00
parent 4ef1278cfa
commit 1688fe82fd
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
7 changed files with 10 additions and 7 deletions

View File

@ -50,7 +50,7 @@
+* this . +* this .
aqua-core +> aqua-core +>
ac ~(. aqua-core bowl) ac ~(. aqua-core bowl)
def ~(. (default-agent this) bowl) def ~(. (default-agent this %|) bowl)
++ on-init `this ++ on-init `this
++ on-save !>(all-state) ++ on-save !>(all-state)
++ on-load ++ on-load

View File

@ -27,7 +27,7 @@
+* this . +* this .
chat-core +> chat-core +>
cc ~(. chat-core bowl) cc ~(. chat-core bowl)
def ~(. (default-agent this) bowl) def ~(. (default-agent this %|) bowl)
:: ::
++ on-init on-init:def ++ on-init on-init:def
++ on-save !>(state) ++ on-save !>(state)

View File

@ -35,7 +35,7 @@
=| state=app-state =| state=app-state
|_ =bowl:mall |_ =bowl:mall
+* this . +* this .
def ~(. (default-agent this) bowl) def ~(. (default-agent this %|) bowl)
:: ::
++ on-init on-init:def ++ on-init on-init:def
++ on-save !>(state) ++ on-save !>(state)

View File

@ -36,7 +36,7 @@
+* this . +* this .
lsp-core +> lsp-core +>
lsp ~(. lsp-core bowl) lsp ~(. lsp-core bowl)
def ~(. (default-agent this) bowl) def ~(. (default-agent this %|) bowl)
:: ::
++ on-init ++ on-init
^+ on-init:*agent:mall ^+ on-init:*agent:mall

View File

@ -15,7 +15,7 @@
+* this . +* this .
spider-core +> spider-core +>
sc ~(. spider-core bowl) sc ~(. spider-core bowl)
def ~(. (default-agent this) bowl) def ~(. (default-agent this %|) bowl)
:: ::
++ on-init on-init:def ++ on-init on-init:def
++ on-save on-save:def ++ on-save on-save:def

View File

@ -1,4 +1,8 @@
|* agent=* /+ skeleton
|* [agent=* help=*]
?: ?=(%& help)
~| %default-agent-helpfully-crashing
skeleton
|_ =bowl:mall |_ =bowl:mall
++ on-init ++ on-init
`agent `agent

View File

@ -1582,7 +1582,6 @@
%- (slog >out=outgoing.subscribers.current-agent< leaf/"XXX remove" tang) %- (slog >out=outgoing.subscribers.current-agent< leaf/"XXX remove" tang)
(ap-specific-take way %watch-ack `tang) (ap-specific-take way %watch-ack `tang)
$(moves t.moves) $(moves t.moves)
~& >> %peer-new
=. outgoing.subscribers.current-agent =. outgoing.subscribers.current-agent
(~(put by outgoing.subscribers.current-agent) [short-wire dock] [| path]) (~(put by outgoing.subscribers.current-agent) [short-wire dock] [| path])
$(moves t.moves, new-moves [move new-moves]) $(moves t.moves, new-moves [move new-moves])