prev-paragraph ( loc document -- loc' )

Vocabulary

documents.elements.private

Inputs

loc	an object
document	an object

Outputs

loc'

an object

Definition

USING: accessors arrays kernel math math.order sequences ;

IN: documents.elements.private

:: prev-paragraph ( loc document -- loc' )
    loc first 1 [-] document value>> [ empty? ] find-last-from
    drop [ 1 + ] [ 0 ] if* :> line# loc first line# =
    loc second 0 = and
    [ line# 1 [-] 0 2array ] [ line# 0 2array ] if ;