(execution-quot) ( next-state -- quot )

Vocabulary

regexp.compiler.private

Inputs

next-state

an object

Outputs

quot

an object

Definition

USING: accessors kernel quotations regexp.classes ;

IN: regexp.compiler.private

: (execution-quot) ( next-state -- quot )
    dup condition? [
        [ question>> boundary-question>quot ] [ yes>> ] [ no>> ]
        tri [ (execution-quot) ] bi@ '[ 2dup @ _ _ if ]
    ] [ 1quotation ] if ;