states>code ( words dfa -- )

Vocabulary

regexp.compiler.private

Inputs

words	an object
dfa	an object

Outputs

None

Definition

USING: kernel sequences words ;

IN: regexp.compiler.private

: states>code ( words dfa -- )
    [ [ dup ] ] dip [
        word>quot
        ( last-match index string -- ? ) define-declared
    ] curry compose each ;