transitions>quot ( transitions final-state? -- quot )

Vocabulary

regexp.compiler.private

Inputs

transitions	an object
final-state?	an object

Outputs

quot

an object

Definition

USING: combinators kernel kernel.private math namespaces
regexp.compiler strings ;

IN: regexp.compiler.private

: transitions>quot ( transitions final-state? -- quot )
    dup shortest? get and
    [ 2drop [ drop nip ] ] [
        [ split-literals swap case>quot ] dip backwards? get
        '[ { fixnum string } declare _ _ _ step ]
    ] if ;