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:

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:

ContributeContributions