(add-transition) ( from to obj hash -- )

Vocabulary
regexp.transition-tables

Definition

USING: assocs hashtables kernel locals vectors ;

IN: regexp.transition-tables

:: (add-transition) ( from to obj hash -- )
    from hash at
    [ [ to obj ] dip push-at ]
    [ to 1vector obj associate from hash set-at ] if* ;