optimize->integer ( #call -- nodes )

Vocabulary

compiler.tree.modular-arithmetic

Inputs

#call

an object

Outputs

nodes

an object

Definition

USING: accessors kernel math ;

IN: compiler.tree.modular-arithmetic

: optimize->integer ( #call -- nodes )
    dup should-be->fixnum? [ \ >fixnum >>word ] when ;