end-on-line ( to line# document -- n2 )

Vocabulary

documents

Inputs

to	an object
line#	an object
document	an object

Outputs

n2

an object

Definition

USING: kernel sequences ;

IN: documents

:: end-on-line ( to line# document -- n2 )
    to first line# =
    [ to second ] [ line# document doc-line length ] if ;