states>words ( dfa -- words dfa )


Vocabulary
regexp.compiler.private

Inputs
dfaan object


Outputs
wordsan object
dfaan object


Definition
USING: accessors assocs kernel regexp.transition-tables words ;

IN: regexp.compiler.private

: states>words ( dfa -- words dfa )
dup transitions>> keys [ gensym ] H{ } map>assoc
[ transitions-at ] [ values ] bi swap ;