source-name:misc — ordinary primitive
FORTH
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.