Verified Commit 8041812f authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Fix ihave, problem

parent 63af4a64

msg.fs

+1 −1
Original line number Diff line number Diff line
@@ -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