number-transitions ( transitions numbering -- new-transitions )

Vocabulary

regexp.transition-tables

Inputs

transitions	an object
numbering	an object

Outputs

new-transitions

an object

Definition

USING: assocs kernel regexp.classes ;

IN: regexp.transition-tables

: number-transitions
    ( transitions numbering -- new-transitions )
    dup [ [ at ] curry ] dip [ condition-at ] curry
    [ assoc-map ] curry [ bi* ] 2curry assoc-map ;