like->integer? ( #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->integer? ( #call -- ? )
    word>> { >integer >bignum fixnum>bignum } member-eq? ;