optimize->fixnum ( #call -- nodes )

Vocabulary

compiler.tree.modular-arithmetic

Inputs

#call

an object

Outputs

nodes

an object

Definition

USING: kernel ;

IN: compiler.tree.modular-arithmetic

: optimize->fixnum ( #call -- nodes )
    dup redundant->fixnum? [ drop f ] when ;