inlining-math-method ( #call word -- class/f quot/f )

Vocabulary

compiler.tree.propagation.inlining

Inputs

#call	an object
word	an object

Outputs

class/f	an object
quot/f	an object

Definition

USING: accessors compiler.tree.propagation.info kernel math
math.partial-dispatch sequences ;

IN: compiler.tree.propagation.inlining

: inlining-math-method ( #call word -- class/f quot/f )
    swap in-d>> first2
    [ value-info class>> normalize-math-class ] bi@
    3dup math-both-known? [ math-method* ] [ 3drop f ] if
    number swap ;