initialize-protocol-props ( protocol wordlist -- )

Vocabulary

delegate.private

Inputs

protocol	an object
wordlist	an object

Outputs

None

Definition

USING: assocs kernel sequences words ;

IN: delegate.private

: initialize-protocol-props ( protocol wordlist -- )
    [
        drop "protocol-consult"
        [ H{ } assoc-like ] change-word-prop
    ] [ { } like "protocol-words" set-word-prop ] 2bi ;