add-new-definitions ( protocol wordlist -- )


Vocabulary
delegate.private

Inputs
protocolan object
wordlistan object


Outputs
None

Definition
USING: assocs kernel sequences ;

IN: delegate.private

: add-new-definitions ( protocol wordlist -- )
[ drop protocol-consult values ] [ added-words ] 2bi
[ swap define-consult-method ] cartesian-each ;