math-closure ( class -- newclass )

Vocabulary

compiler.tree.propagation.known-words

Inputs

class

an object

Outputs

newclass

an object

Definition

USING: classes.algebra kernel math sequences ;

IN: compiler.tree.propagation.known-words

: math-closure ( class -- newclass )
    { fixnum bignum integer rational float real number object }
    [ class<= ] with find nip ;