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.

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