modify-col ( loc document quot: ( col str -- col' ) -- loc )

Vocabulary

documents.elements.private

Inputs

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

Outputs

loc

an object

Definition

USING: documents kernel sequences ;

IN: documents.elements.private

: modify-col
    ( loc document quot: ( col str -- col' ) -- loc )
    pick [ [ [ first2 swap ] dip doc-line ] dip call ] dip =col
    ; inline