math-method* ( word left right -- quot )

Vocabulary

math.partial-dispatch

Inputs

word	an object
left	an object
right	an object

Outputs

quot

an object

Definition

USING: generic.math kernel quotations ;

IN: math.partial-dispatch

: math-method* ( word left right -- quot )
    3dup math-op [ 3nip 1quotation ] [ drop math-method ] if ;