gall: don't give faces to tags
++ reverse-ames
$% :: diff
::
- [action=%d p=mark q=*]
+ [%d p=mark q=*]
:: etc.
::
- [action=%x ~]
+ [%x ~]
==
::
:: +forward-ames: forward ames message
++ forward-ames
$% :: message
::
- [action=%m =mark noun=*]
+ [%m =mark noun=*]
:: "peel" subscribe
::
- [action=%l =mark =path]
+ [%l =mark =path]
:: subscribe
::
- [action=%s =path]
+ [%s =path]
:: cancel+unsubscribe
::
- [action=%u ~]
+ [%u ~]
==
::
:: +foreign-response: foreign response
:: +internal-note: +ap note
::
++ internal-note
- $% [task=%meta =term =vase]
- [task=%send =ship =internal-task]
+ $% [%meta =term =vase]
+ [%send =ship =internal-task]
==
::
:: +internal-move: agent-level move
^+ mo-state
::
=. mo-state
- ?. ?=(%u action.forward-ames)
+ ?. ?=(%u -.forward-ames)
mo-state
(mo-give %mack ~)
::
=/ =sock [ship our]
::
=/ =note-arvo
- ?- action.forward-ames
+ ?- -.forward-ames
::
%m
::
|= [=ship =term =bone =reverse-ames]
^+ mo-state
::
- ?- action.reverse-ames
+ ?- -.reverse-ames
::
%d
::
=/ use-path [%use agent-name path]
::
=/ =note-arvo
- ?- task.internal-note
+ ?- -.internal-note
::
%send
::
