X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_break.adoc;h=f274ea6b10d8d3f5c04991251ad41edd497bca6a;hb=97a4e5ecb1623dbe0fbd7b6eeb96e966c6c5b1d3;hp=dec6fd78242b901701eed5156ab84f033cd1fe7e;hpb=9b8fcf87eaed58b6dfabcf885f8eef5484643de6;p=rrq%2Frrqforth.git

diff --git a/adoc/p_break.adoc b/adoc/p_break.adoc
index dec6fd7..f274ea6 100644
--- a/adoc/p_break.adoc
+++ b/adoc/p_break.adoc
@@ -20,6 +20,7 @@ resolution address just above the required 0 on the data stack.
 : WORDS ( wordlist -- ; Print all words of word list )
   BEGIN
     @ DUP IF DUP WTELL ELSE BREAK THEN
+    1 IFAGAIN
   END
   DROP
   NL EMIT