gall: in/exclude the nonce from the wire as needed

+ap-nuke was not including the nonce, but should.
+ap-handle-peers was potentially including a zero nonce.

(The latter shouldn't have been possible, but there's a bug in +load
where sub-nonce.yoke gets initialized as 0 instead of 1.)
This commit is contained in:
fang 2022-08-09 21:21:10 +02:00
parent 0a3f542fcc
commit c2d77a5d47
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -1204,8 +1204,8 @@
~ ~
[%give %kick ~(tap in inbound-paths) ~]~ [%give %kick ~(tap in inbound-paths) ~]~
%+ turn ~(tap by boat.yoke) %+ turn ~(tap by boat.yoke)
|= [[=wire =ship =term] ? =path] |= [[=wire =dock] ? =path]
[%pass wire %agent [ship term] %leave ~] [%pass (ap-nonce-wire wire dock) %agent dock %leave ~]
=^ maybe-tang ap-core (ap-ingest ~ |.([will *agent])) =^ maybe-tang ap-core (ap-ingest ~ |.([will *agent]))
ap-core ap-core
:: +ap-from-internal: internal move to move. :: +ap-from-internal: internal move to move.
@ -1891,7 +1891,7 @@
(ap-error %watch-not-unique tang) :: reentrant, maybe bad? (ap-error %watch-not-unique tang) :: reentrant, maybe bad?
$(moves t.moves) $(moves t.moves)
:: ::
=. p.move.move =? p.move.move !=(0 sub-nonce.yoke)
(weld sys-wire [(scot %ud sub-nonce.yoke) sub-wire]) (weld sys-wire [(scot %ud sub-nonce.yoke) sub-wire])
%_ $ %_ $
moves t.moves moves t.moves