jael: don't put conflicting this-su in the subject

This commit is contained in:
yosoyubik 2022-01-12 11:01:06 +01:00
parent d71074eb58
commit 432d9674f5
2 changed files with 11 additions and 10 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:b9e4ea5b7456d82c47971dbdc2af55d4619165fbd8163da1cb25957d4a2aca08
size 26237985
oid sha256:843387cce113f18b403f76b6ba97ddf1746a5436b107d087d1f33b38db6f8c1a
size 26237959

View File

@ -740,18 +740,19 @@
=/ a-point=point (~(gut by pos.zim.pki) ship.i.udiffs *point)
=/ a-diff=(unit diff:point) (udiff-to-diff:point udiff.i.udiffs a-point)
=? this-su ?=(^ a-diff)
=- (public-keys:feel original-pos %diff ship.i.udiffs u.a-diff)
?. ?& =(our ship.i.udiffs)
=? this-su
?& =(our ship.i.udiffs)
?=(%keys -.u.a-diff)
(~(has by jaw.own) life.to.u.a-diff)
==
this-su
:: if this about our keys, and we already know these, start using them
:: if this about our keys, and we already know these, start using them
::
=. lyf.own life.to.u.a-diff
:: notify subscribers (ames) to start using our new private keys
::
(exec yen.own [%give %private-keys [lyf jaw]:own])
::
=. lyf.own life.to.u.a-diff
:: notify subscribers (ames) to start using our new private keys
::
(exec yen.own [%give %private-keys [lyf jaw]:own])
(public-keys:feel original-pos %diff ship.i.udiffs u.a-diff)
$(udiffs t.udiffs)
::
++ subscribers-on-ship