math-both-known? ( word left right -- ? )

Vocabulary

math.partial-dispatch

Inputs

word	an object
left	an object
right	an object

Outputs

?

an object

Definition

USING: generic generic.math kernel ;

IN: math.partial-dispatch

: math-both-known? ( word left right -- ? )
    3dup math-op
    [ 4drop t ]
    [ drop math-class-max swap method-for-class >boolean ] if ;