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>> ] ] dip compose ]
    [ [ [ parse-tree>> ] ] dip compose ] bi* bi make-regexp ;
    inline