ensure-capture-code ( regexp -- code )

Vocabulary

regexp.private

Inputs

regexp

an object

Outputs

code

an object

Definition

USING: accessors compiler.units kernel regexp.captures ;

IN: regexp.private

: ensure-capture-code ( regexp -- code )
    dup capture-program>>
    [ nip ] [
        dup
        [ [ parse-tree>> ] [ options>> ] bi compile-captures ]
        with-compilation-unit [ >>capture-program drop ] keep
    ] if* ;