From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Wed, 2 Jun 2021 13:40:41 +0000 (+1000)
Subject: corrected example
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=076f00a88873336acf2c7150281f1a8172683fe7;p=rrq%2Frrqforth.git

corrected example
---

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