ames/zuse: require >64-bit comet addresses

This commit is contained in:
Ted Blackman 2020-10-27 17:28:07 -04:00
parent fcf9cfbcdb
commit 56db7cdcda
2 changed files with 2 additions and 2 deletions

View File

@ -1048,7 +1048,7 @@
^+ event-core
:: assert the comet can't pretend to be a moon or other address
::
?> (lth 64 (met 0 sndr.packet))
?> ?=(%pawn (clan:title sndr.packet))
:: if we already know .sndr, ignore duplicate attestation
::
=/ ship-state (~(get by peers.ames-state) sndr.packet)

View File

@ -9176,7 +9176,7 @@
=/ who=ship `@`fig:ex:cub
:: disallow 64-bit or smaller addresses
::
?: (gte 64 (met 0 sndr.packet))
?. ?=(%pawn (clan:title who))
$(eny +(eny))
?: (~(has in stars) (^sein:title who))
[who 1 sec:ex:cub ~]