extract-words ( seq vocab -- assoc )


Vocabulary
vocabs.parser.private

Inputs
seqan object
vocaban object


Outputs
assocan object


Definition
USING: accessors assocs kernel vocabs.parser ;

IN: vocabs.parser.private

: extract-words ( seq vocab -- assoc )
[ words>> extract-keys dup ] [ name>> ] bi
[ swap [ 2drop ] [ no-word-in-vocab ] if ] curry assoc-each
;