word>quot ( word dfa -- quot )


Vocabulary
regexp.compiler.private

Inputs
wordan object
dfaan object


Outputs
quotan object


Definition
USING: accessors assocs kernel sets ;

IN: regexp.compiler.private

: word>quot ( word dfa -- quot )
[ transitions>> at ] [ final-states>> in? ] 2bi
transitions>quot ;