text+loc ( lines loc -- loc )


Vocabulary
documents.private

Inputs
linesan object
locan object


Outputs
locan object


Definition
USING: arrays kernel math sequences ;

IN: documents.private

:: text+loc ( lines loc -- loc )
lines length 1 =
[ loc first2 ] [ loc first lines length 1 - + 0 ] if
lines last length + 2array ;