SOURCE-LINE SOURCE-ID SOURCE-NAME
SOURCE-LINE
* SOURCE-LINE ( -- n )

if SOURCE is from EVALUATE (or QUERY ) then
the result is 0 else the line-numbers start from 1

FORTH/BASE misc ordinary primitive