modify-regexp ( regexp raw-quot tree-quot -- new-regexp )

Vocabulary

regexp.combinators.private

Inputs

regexp	an object
raw-quot	an object
tree-quot	an object

Outputs

new-regexp

an object

Definition

USING: accessors kernel regexp ;

IN: regexp.combinators.private

: modify-regexp ( regexp raw-quot tree-quot -- new-regexp )
    [ '[ raw>> @ ] ] [ '[ parse-tree>> @ ] ] bi* bi make-regexp
    ; inline