Commit 9c7ba65a authored by Bernd Paysan's avatar Bernd Paysan

Add better chain support

parent dca4bf1d
......@@ -1546,7 +1546,7 @@ is /help
ELSE 2drop rectype-null THEN ;
: chain-rec ( addr u -- )
over c@ '!' = IF
2dup 1 /string dup 0= IF 2drop rectype-null EXIT THEN
2dup 1 /string dup 0= IF 2drop 2drop rectype-null EXIT THEN
snumber?
case
0 of endof
......
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