* LEAVE ( -- ) quit the innermost DO .. LOOP - it does even clean the return-stack and branches to the place directly after the next LOOP
LEAVE
( -- )
DO
LOOP
FORTH/ANS core (dpANS.6.1.1760) compiling primitive