add-todo-state ( state visited-states new-states -- )

Vocabulary

regexp.dfa

Inputs

state	an object
visited-states	an object
new-states	an object

Outputs

None

Definition

USING: kernel sequences sets ;

IN: regexp.dfa

: add-todo-state ( state visited-states new-states -- )
    2over ?adjoin [ nip push ] [ 3drop ] if ;