corrected BREAK example

[rrq/rrqforth.git] / adoc / p_break.adoc

diff --git a/adoc/p_break.adoc b/adoc/p_break.adoc
index dec6fd78242b901701eed5156ab84f033cd1fe7e..f274ea6b10d8d3f5c04991251ad41edd497bca6a 100644 (file)
--- 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