6.1.2140 REPEAT CORE

Interpretation:

Interpretation semantics for this word are undefined.

Compilation:

( C: orig dest -- )

Append the run-time semantics given below to the current definition, resolving the backward reference dest. Resolve the forward reference orig using the location following the appended run-time semantics.

Run-time:

( -- )

Continue execution at the location given by dest.

See:

6.1.0760 BEGIN, 6.1.2430 WHILE, A.6.1.2140 REPEAT.

Rationale:

Typical use:

: FACTORIAL ( +n1 -- +n2 )
   DUP 2 < IF DROP 1 EXIT THEN
   DUP
   BEGIN DUP 2 > WHILE
   1- SWAP OVER * SWAP
   REPEAT DROP
;

Testing:

See F.6.1.2430 WHILE.