prepare-insert ( new-lines from to lines -- new-lines )

Vocabulary

documents.private

Inputs

new-lines	an object
from	an object
to	an object
lines	an object

Outputs

new-lines

an object

Definition

USING: kernel sequences ;

IN: documents.private

: prepare-insert ( new-lines from to lines -- new-lines )
    [ loc-col/str head-slice ] [ loc-col/str tail-slice ]
    bi-curry bi* pick append-last over prepend-first ;