add-simple-entry ( obj -- start-state end-state )

Vocabulary

regexp.nfa

Inputs

obj

an object

Outputs

start-state	an object
end-state	an object

Definition

USING: kernel namespaces regexp.transition-tables ;

IN: regexp.nfa

: add-simple-entry ( obj -- start-state end-state )
    [ next-state next-state 2dup ] dip
    nfa-table get add-transition ;