X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=examples%2Ftiming.f;h=e3b99dd6d8caf7cb27a8c7804db0ea7b811ff842;hb=6abdd618f54acab8cb2d04f3c3ee2d0aab36eb22;hp=61d5c0c19997eeebffff24993bb7cbfa77bf6d0a;hpb=57e9b9cc817399bf2d27601e6a4d841ba2318c8c;p=rrq%2Frrqforth.git

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
 ;