using IFAGAIN instead

[rrq/rrqforth.git] / examples / timing.f

diff --git a/examples/timing.f b/examples/timing.f
index 61d5c0c19997eeebffff24993bb7cbfa77bf6d0a..e3b99dd6d8caf7cb27a8c7804db0ea7b811ff842 100755 (executable)
--- 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
 ;