(remove-overflow-check?) ( #call -- ? )

Vocabulary

compiler.tree.cleanup

Inputs

#call

an object

Outputs

?

an object

Definition

USING: accessors classes.algebra compiler.tree.propagation.info
math sequences ;

IN: compiler.tree.cleanup

: (remove-overflow-check?) ( #call -- ? )
    node-output-infos first class>> fixnum class<= ;