add-default-transition ( state's-transitions -- new-state's-transitions )

Vocabulary

regexp.negation

Inputs

state's-transitions

an object

Outputs

new-state's-transitions

an object

Definition

USING: assocs kernel regexp.classes sequences ;

IN: regexp.negation

: add-default-transition
    ( state's-transitions -- new-state's-transitions )
    clone dup
    [ [ fail-state ] dip keys [ <not-class> ] map <and-class> ]
    keep set-at ;