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 ^+ event-core
:: assert the comet can't pretend to be a moon or other address :: 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 :: if we already know .sndr, ignore duplicate attestation
:: ::
=/ ship-state (~(get by peers.ames-state) sndr.packet) =/ ship-state (~(get by peers.ames-state) sndr.packet)

View File

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