math-class? ( object -- ? ) - Factor Documentation

math-class? ( object -- ? )

Vocabulary
generic .math

Inputs and outputs

object an object

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 ;