register-consult ( consultation -- )

Vocabulary

delegate.private

Inputs

consultation

an object

Outputs

None

Definition

USING: accessors hashtables kernel words ;

IN: delegate.private

: register-consult ( consultation -- )
    [ group>> "protocol-consult" ] [ ] [ class>> ] tri
    [ ] 2curry [ dip ?set-at ] curry change-word-prop ;