consult-method-quot ( consultation word -- object )


Vocabulary
delegate.private

Inputs
consultationan object
wordan object


Outputs
objectan object


Definition
USING: accessors kernel math sequences ;

IN: delegate.private

: consult-method-quot ( consultation word -- object )
[ dup quot>> ] dip
[ second [ [ dip ] curry ] times ] [ first ] bi
(consult-method-quot) ;