X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=reference.html;h=f49869a4eb7329644a6d974173b691fbe9fb4fd5;hb=97a4e5ecb1623dbe0fbd7b6eeb96e966c6c5b1d3;hp=e07df55fc602666ca9823713d05b0677b8251d12;hpb=9b8fcf87eaed58b6dfabcf885f8eef5484643de6;p=rrq%2Frrqforth.git

diff --git a/reference.html b/reference.html
index e07df55..f49869a 100644
--- a/reference.html
+++ b/reference.html
@@ -1374,6 +1374,7 @@ resolution address just above the required 0 on the data stack.</p></div>
 : WORDS ( wordlist -- ; Print all words of word list )
   BEGIN
     @ DUP IF DUP WTELL ELSE BREAK THEN
+    1 IFAGAIN
   END
   DROP
   NL EMIT