create-consult-method ( word consultation -- method )

Vocabulary

delegate.private

Inputs

word	an object
consultation	an object

Outputs

method

an object

Definition

USING: accessors compiler.units generic kernel sequences words ;

IN: delegate.private

: create-consult-method ( word consultation -- method )
    [ class>> swap first create-method dup fake-definition ]
    keep [ drop ] [ "consultation" set-word-prop ] 2bi ;