* 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) ;
FORTH/EXTENSIONS core ordinary primitive