/ anew /

ANEW name

description:

ANEW ( "name" -- )

Creates a => MARKER if it doesn't exist,
or forgets everything after it, if it does.

: ANEW
   BL WORD
   DUP FIND NIP IF NAME> EXECUTE THEN
   (MARKER)
;


see also:

../from/Wil.Baden (on c.l.f. on 2002-01-05)


From FPH Use
home.earthlink.net/~neilbawd/

0 [IF] ========================================================

POSSIBLY ( "name" -- )
Execute _name_ if it exists; otherwise, do nothing. Useful
implementation factor of `ANEW`.

ANEW ( "name" -- )
Compiler directive used in the form: `ANEW _name_`. If the
word _name_ already exists, it and all subsequent words
are forgotten from the current dictionary, then a `MARKER`
word _name_ is created that does nothing. This is usually
placed at the start of a file. When the code is reloaded,
any prior version is automatically pruned from the
dictionary.

Executing _name_ will also cause it to be forgotten, since
it is a `MARKER` word.

Useful implementation factor of `EMPTY`.

-------------------------------------------------------- [THEN]


: POSSIBLY ( "name" -- )
BL WORD FIND ?DUP AND IF EXECUTE THEN ;

: ANEW ( "name" -- )
>IN @ POSSIBLY
>IN ! MARKER ;



$Id: index-v.txt,v 1.2 2002/01/13 18:33:28 guidod Exp $

generated Wed Jul 23 02:53:34 2003mlg