* ANEW ( 'name' -- ) creates a >MARKER if it doesn't exist, or forgets everything after it if it does. (it just gets executed). : ANEW BL WORD DUP FIND NIP IF EXECUTE THEN (MARKER) ;
ANEW
( 'name' -- )
>MARKER
: ANEW BL WORD DUP FIND NIP IF EXECUTE THEN (MARKER) ;
core ordinary primitive