(set-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 ;

IN: regexp.transition-tables

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