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