USING: accessors kernel 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
] [ [ execute ] curry ] if ;