Name

source-line:misc — ordinary primitive

Synopsis

FORTH

SOURCE-LINE ( -- n )();
p4:"source-line";

Description

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