Commit 8041812f authored by Bernd Paysan's avatar Bernd Paysan

Fix ihave, problem

parent 63af4a64
......@@ -1377,7 +1377,7 @@ also net2o-base
c:0key sigonly@ >hash hashtmp hash#128 forth:type ;] $tmp $, msg-chain ;
: ihave, ( -- )
ihave$ $@ dup IF
maxstring 4 - mehave$ $@len - dup 0< IF 2drop EXIT THEN
maxstring over 4 + - mehave$ $@len - dup 0< IF 2drop EXIT THEN
keysize negate and dup >r
$, mehave$ $@ $, msg-ihave
ihave$ 0 r> $del
......
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