gall: style indentation
%huck note-arvo.neet
%agent [%g %deal [our ship.neet] [name deal]:neet]
==
- [system-duct.state %pass wire note-arvo]~
+ [duct %pass wire note-arvo]~
==
:: +ap-breach: ship breached, so forget about them
::
(on-bad-nonce nonce.u.got)
run-sign
::
+ ++ sub-key [agent-wire dock]
+ ++ ingest (ap-ingest ~ |.((on-agent:ap-agent-core agent-wire sign)))
++ run-sign
?- -.sign
%poke-ack !!
::
ingest-and-check-error
==
+ ::
++ on-missing
%. ap-core
%- slog :~
leaf+"{<dock>}: {<[nonce=nonce agent-wire]>}"
>wire=wire<
==
+ ::
++ on-bad-nonce
|= stored-nonce=@
%. ap-core
>wire=wire<
==
::
- ++ sub-key [agent-wire dock]
- ++ ingest (ap-ingest ~ |.((on-agent:ap-agent-core agent-wire sign)))
- ::
++ ingest-and-check-error
^+ ap-core
=^ tan ap-core ingest
moves t.moves
new-moves [move new-moves]
sub-nonce.yoke +(sub-nonce.yoke)
+ ::
outbound.watches.yoke
%+ ~(put by outbound.watches.yoke) [sub-wire dock]
:+ acked=|
