fixup-end/text-matches? ( string regexp rule -- match-count/f )

Vocabulary

xmode.marker.private

Inputs

string	an object
regexp	an object
rule	an object

Outputs

match-count/f

an object

Definition

USING: accessors kernel strings xmode.marker ;

IN: xmode.marker.private

: fixup-end/text-matches?
    ( string regexp rule -- match-count/f )
    [ >string ] 2dip [ [ match-start dup ] keep ] dip pick
    [ end>> [ [ fixup-end ] change-text drop ] [ 2drop ] if* ]
    [ 3drop ] if dup [ to>> ] when ;