next ( loc document quot: ( loc document -- loc ) -- loc )

Vocabulary

documents.elements.private

Inputs

loc	an object
document	an object
quot	a quotation with stack effect ( loc document -- loc )

Outputs

loc

an object

Definition

USING: arrays combinators documents kernel math sequences ;

IN: documents.elements.private

: next ( loc document quot: ( loc document -- loc ) -- loc )
    {
        { [ 2over doc-end = ] [ 2drop ] }
        { [ 2over line-end? ] [ 2drop first 1 + 0 2array ] }
        [ call ]
    } cond ; inline