Make jael2jael %hail more correct.
== ::
:: ::
++ message :: p2p message
- $% {$hail p/safe} :: reset rights
+ $% [%hail p=remote] :: reset rights
[%nuke ~] :: cancel trackers
[%vent ~] :: view ethereum state
[%vent-result p=update:constitution:ethe] :: tmp workaround
::
$hail
%+ cure our.tac
- abet:abet:(hail:(burb p.tac) our.tac q.tac)
+ abet:abet:(hail:(burb our.tac) p.tac q.tac)
::
:: initialize vane
:: [%init our=ship]
?- -.mes
::
:: reset remote rights
- :: {$hail p/safe}
+ :: [%hail p=remote]
::
- $hail
+ %hail
%+ cure p.p.tac
- abet:abet:(hail:(burb q.p.tac) p.p.tac [%| p.mes])
+ abet:abet:(hail:(burb p.p.tac) q.p.tac p.mes)
::
:: cancel trackers
:: [%nuke ~]
%_ ..feel
moz
:_ moz
- [*duct %pass /vest/(scot %p p.hug) %a %want [our p.hug] /j %hail pig]
+ :^ *duct %pass /vest/(scot %p p.hug)
+ :+ %a %want
+ :+ [our p.hug] /j
+ ^- message
+ [%hail |+pig]
==
--
:: :: ++form:su
