From: Ralph Ronnquist Date: Wed, 2 Jun 2021 13:41:23 +0000 (+1000) Subject: corrected BREAK example X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=bdc1081de477cd5230b7762d479b140cbbcf842f;p=rrq%2Frrqforth.git corrected BREAK example --- 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.

: WORDS ( wordlist -- ; Print all words of word list ) BEGIN @ DUP IF DUP WTELL ELSE BREAK THEN + 1 IFAGAIN END DROP NL EMIT