add-fail-state ( transitions -- new-transitions ) (original) (raw)

add-fail-state ( transitions -- new-transitions )

Vocabulary
regexp.negation

Inputs

transitions an object

Outputs

new-transitions an object

Definition

USING: assocs ;

IN: regexp.negation

: add-fail-state ( transitions -- new-transitions )
[ add-default-transition ] assoc-map fail-state-recurses ;