INCLUDE

( i * x "name" -- j * x )

Skip leading white space and parse name delimited by a white space character. Push the address and length of the name on the stack and perform the function of INCLUDED.

See:

Rationale:

Typical use:
INCLUDE filename

Implementation:

: INCLUDE ( i*x "name" -- j*x )
   PARSE-NAME INCLUDED ;

Testing:

ContributeContributions