Commit b5c7f47b authored by Bernd Paysan's avatar Bernd Paysan

Fix your-0key problem

parent a6c4f335
......@@ -23,7 +23,7 @@ key-salt# key-cksum# + Constant wrapper#
Variable my-0key
: your-0key ( -- addr u )
o IF dest-0key sec@ ELSE #0. THEN
dup 0= IF 2drop lastaddr# cell+ $@ THEN ;
dup 0= lastaddr# and IF 2drop lastaddr# cell+ $@ THEN ;
user-o keytmp \ storage for secure temporary keys
......
......@@ -299,8 +299,8 @@ in net2o : pklookup? ( pkaddr u -- flag )
2dup >d#id { id }
id .dht-host $[]# 0= IF 2dup pk-lookup 2dup >d#id to id THEN
2dup make-context
false id dup .dht-host ['] insert-host? $[]map drop
nip nip ;
false id dup .dht-host ['] insert-host? $[]map drop nip nip
lastaddr# IF lastaddr# cell+ $@ dest-0key $! THEN ;
in net2o : pklookup ( pkaddr u -- )
net2o:pklookup? 0= !!no-address!! ;
......
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