From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Fri, 11 Jun 2021 10:16:40 +0000 (+1000)
Subject: using IFAGAIN instead
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;ds=sidebyside;h=6abdd618f54acab8cb2d04f3c3ee2d0aab36eb22;p=rrq%2Frrqforth.git

using IFAGAIN instead
---

diff --git a/examples/timing.f b/examples/timing.f
index 61d5c0c..e3b99dd 100755
--- a/examples/timing.f
+++ b/examples/timing.f
@@ -24,8 +24,8 @@ INPUT @ READ-WORD time0 CREATE DROP 0 , ( variable time0 )
 : longloop ( n -- )
   S" Takes " TELL marktime
   0 BEGIN
-    1 + 2DUP <= IFBREAK
-  AGAIN 2DROP
+    1 + 2DUP > IFAGAIN
+  END 2DROP
   telltime S"  seconds" TELL NL EMIT
 ;