Commit e899b817 authored by Bernd Paysan's avatar Bernd Paysan

Fix old my-addr$ problem

parent 6aa0d206
......@@ -172,7 +172,7 @@ previous
priv-addr$ $[]free ;
: !my-addr$ ( -- )
my-key-default 0= ?EXIT
my-key-default 0= ?EXIT my-addr$ $[]free
now>never my-addr[] [:
nat( ." insert into my-addr$: " dup .addr forth:cr )
dup .host:ekey-to 64@ 64dup 64-0= n>64 64+
......
......@@ -167,7 +167,7 @@ Forward insert-addr ( o -- )
announced 64@ 64-0= ?EXIT
announced? 0= IF
init-my0key init-myekey
my-addr[] [: .+my-0key ;] $[]o-map
my-addr[] [: .+my-0key ;] $[]o-map !my-addr$
announce-me THEN ;
: renat-all ( -- ) beacon( ." remove all beacons" cr )
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment