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.

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: