++ta-action no longer requires a bone it doesn't even use.
::> inbox.
::
|= msg/tape
- %^ ta-action 0 %phrase
+ %+ ta-action %phrase
:- [[our.bol %inbox] ~ ~]
[%app dap.bol %lin | (crip msg)]~
::
[%journal %public 'visible activity']
==
|= {{typ/security nom/naem des/cord} _ta}
- %+ ta-action ost.bol
- [%create nom des typ]
+ (ta-action [%create nom des typ])
%- ta-deltas
:: if needed, subscribe to our parent's /burden.
=+ sen=(above our.bol)
++ ta-action ::< apply client action
::> performs action sent by a client.
::
- |= {red/bone act/action}
+ |= act/action
^+ +>
=< work
::> ||
=. acs (flop acs)
|- ^+ ..ta-take
?~ acs ..ta-take
- =. ..ta-take (ta-action ost.bol i.acs)
+ =. ..ta-take (ta-action i.acs)
$(acs t.acs)
$(sos t.sos)
::TODO runtime error
=. acs (flop acs)
|- ^+ +>+
?~ acs +>+
- =. +>+ (ta-action ost.bol i.acs)
+ =. +>+ (ta-action i.acs)
$(acs t.acs)
::TODO runtime error
::=< so-done
=. acs (flop acs)
|- ^+ +>+
?~ acs +>+
- =. +>+ (ta-action ost.bol i.acs)
+ =. +>+ (ta-action i.acs)
$(acs t.acs)
::
::> ||
"hall-action stranger {(scow %p src.bol)}"
=^ mos +>.$
%- pre-bake
- ta-done:(ta-action:ta ost.bol act)
+ ta-done:(ta-action:ta act)
=^ mow +>.$
log-all-to-file
[(welp mos mow) +>.$]
%- pre-bake
:: when we got kicked, don't resub, remove source.
?. =(src.bol our.bol)
- ta-done:(ta-action:ta 0 %source nom | [src ~ ~])
+ ta-done:(ta-action:ta %source nom | [src ~ ~])
ta-done:(ta-resub:ta nom src)
::
++ coup-repeat ::< message n/ack
