[DEFINED]

Compilation:

Perform the execution semantics given below.

Execution:

( "<spaces>name ..." -- flag )

Skip leading space delimiters. Parse name delimited by a space. Return a true flag if name is the name of a word that can be found (according to the rules in the system's FIND); otherwise return a false flag. [DEFINED] is an immediate word.

Implementation:

: [DEFINED] BL WORD FIND NIP 0<> ; IMMEDIATE

ContributeContributions