Commit 5ccc440c authored by Bernd Paysan's avatar Bernd Paysan

Clean up nick\!

parent 425f4c80
......@@ -143,8 +143,12 @@ Variable sim-nick!
I @ .ke-nick# @ ke-nick# !
I @ .ke-offset 64@ ke-offset 64!
I @ .ke-sk sec@ dup IF ke-sk sec! ELSE 2drop THEN
I @ .ke-selfsig $@ drop 64@ ke-selfsig $@ drop 64@ 64u<
IF optr @ I ! THEN
I @ .ke-selfsig $@ IF
64@ ke-selfsig $@ IF
64@ 64u<
IF optr @ I ! THEN
ELSE drop 64drop THEN
ELSE drop THEN
UNLOOP EXIT
THEN
cell +LOOP
......
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