anew:core — ordinary primitive
EXTENSIONS
ANEW ( 'name' -- )();p4:"anew";
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) ;