Add better chain support

9c7ba65a · Bernd Paysan · dca4bf1d · 9c7ba65a
Verified Commit 9c7ba65a authored Jul 05, 2019 by Bernd Paysan
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

msg.fs msg.fs +1 -1

No files found.
--- a/msg.fs
+++ b/msg.fs
@@ -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