custom-inline-fixnum ( #call method -- y )

Vocabulary

compiler.tree.propagation.transforms

Inputs

#call	an object
method	an object

Outputs

y

an object

Definition

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

IN: compiler.tree.propagation.transforms

: custom-inline-fixnum ( #call method -- y )
    [
        in-d>> first value-info class>> fixnum \ f class-or
        class<=
    ] dip [ no-method ] curry [ [ dup ] ] dip [ unless ] curry
    compose [ ] curry [ f ] if ;