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

Vocabulary

regexp.transition-tables

Inputs

from	an object
to	an object
obj	an object
hash	an object

Outputs

None

Definition

USING: assocs hashtables kernel 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* ;