like->fixnum? ( #call -- ? )

Vocabulary

compiler.tree.modular-arithmetic

Inputs

#call

an object

Outputs

?

an object

Definition

USING: accessors math math.private sequences ;

IN: compiler.tree.modular-arithmetic

: like->fixnum? ( #call -- ? )
    word>> {
        >fixnum
        float>fixnum
        bignum>fixnum
        bignum>fixnum-strict
        integer>fixnum
        integer>fixnum-strict
    } member-eq? ;