X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_break.adoc;h=f274ea6b10d8d3f5c04991251ad41edd497bca6a;hb=bdc1081de477cd5230b7762d479b140cbbcf842f;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