using IFAGAIN instead
authorRalph Ronnquist <ralph.ronnquist@gmail.com>
Fri, 11 Jun 2021 10:16:40 +0000 (20:16 +1000)
committerRalph Ronnquist <ralph.ronnquist@gmail.com>
Fri, 11 Jun 2021 10:16:40 +0000 (20:16 +1000)
examples/timing.f

index 61d5c0c19997eeebffff24993bb7cbfa77bf6d0a..e3b99dd6d8caf7cb27a8c7804db0ea7b811ff842 100755 (executable)
@@ -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
 ;