normalize-math-class ( class -- class' )

Vocabulary

compiler.tree.propagation.inlining

Inputs

class

an object

Outputs

class'

an object

Definition

USING: classes.algebra kernel math sequences ;

IN: compiler.tree.propagation.inlining

: normalize-math-class ( class -- class' )
    {
        null
        fixnum
        bignum
        integer
        ratio
        rational
        float
        real
        complex
        number
        object
    } [ class<= ] with find nip ;