update-match-groups ( str match regexp -- str' )

Vocabulary

xmode.marker.private

Inputs

str	an object
match	an object
regexp	an object

Outputs

str'

an object

Definition

USING: kernel math regexp sequences ;

IN: xmode.marker.private

: update-match-groups ( str match regexp -- str' )
    pick 36 swap index [
        R/ [$]\d/ [ second 48 - nth-match ] 2with
        re-replace-with
    ] [ 2drop ] if ;