source-line:misc — ordinary primitive
FORTH
SOURCE-LINE ( -- n )();p4:"source-line";
SOURCE-LINE ( -- n )(
)
if SOURCE is from EVALUATE (or QUERY ) then the result is 0 else the line-numbers start from 1