* ?LEAVE ( cond -- ) leave a (innermost) loop if condition is true
?LEAVE
( cond -- )
FORTH/BASE forth_usual compiling primitive