unconsult-method ( word consultation -- )

Vocabulary

delegate.private

Inputs

word	an object
consultation	an object

Outputs

None

Definition

USING: accessors definitions generic kernel sequences words ;

IN: delegate.private

: unconsult-method ( word consultation -- )
    [ class>> swap first ?lookup-method ] keep over
    [ over "consultation" word-prop eq? [ forget ] [ drop ] if ]
    [ 2drop ] if ;