6.1.2390 UNTIL CORE

Interpretation:

Interpretation semantics for this word are undefined.

Compilation:

( C: dest -- )

Append the run-time semantics given below to the current definition, resolving the backward reference dest.

Run-time:

( x -- )

If all bits of x are zero, continue execution at the location specified by dest.

See:

Rationale:

Typical use: : X ... BEGIN ... test UNTIL ... ;

Testing:

T{ : GI4 BEGIN DUP 1+ DUP 5 > UNTIL ; -> }T
T{ 3 GI4 -> 3 4 5 6 }T
T{ 5 GI4 -> 5 6 }T
T{ 6 GI4 -> 6 7 }T

ContributeContributions