condition>quot ( condition -- quot )

Vocabulary

regexp.compiler.private

Inputs

condition

an object

Outputs

quot

an object

Definition

USING: accessors kernel regexp.classes sequences ;

IN: regexp.compiler.private

: condition>quot ( condition -- quot )
    dup condition? [
        [ question>> ] [ yes>> ] [ no>> ] tri
        [ condition>quot ] bi@ [
            [ [ [ dup ] ] dip [ class-member? ] curry compose ]
            dip
        ] dip [ if ] 2curry compose
    ] [
        contents>>
        [ [ 3drop ] ]
        [ execution-quot [ [ drop ] ] dip compose ] if-empty
    ] if ;