SOURCE-NAME SOURCE-LINE SOURCE
SOURCE-NAME
* SOURCE-NAME ( -- str-ptr str-len )

if SOURCE is from INCLUDE then the result is the filename,
otherwise a generic name for the SOURCE-ID is given.

FORTH/BASE misc ordinary primitive