math-class? ( object -- ? )

Vocabulary

generic.math

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the math-class class.

Definition

USING: classes classes.algebra kernel math words ;

IN: generic.math

: math-class? ( object -- ? )
    dup class? [
        dup null bootstrap-word eq?
        [ drop f ] [ number bootstrap-word class<= ] if
    ] [ drop f ] if ;