(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
regexp.compiler ;

IN: regexp.compiler.private

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