next-paragraph ( loc document -- loc' )


Vocabulary
documents.elements.private

Inputs
locan object
documentan object


Outputs
loc'an object


Definition
USING: accessors arrays documents kernel math sequences ;

IN: documents.elements.private

:: next-paragraph ( loc document -- loc' )
loc first 1 + document value>> [ empty? ] find-from drop
:> line# line# [
1 - dup document doc-line length 2array dup loc =
[ first 1 + 0 2array ] when
] [ document doc-end ] if* ;