execute-inlining ( #call -- quot/f )

Vocabulary

compiler.tree.propagation.call-effect

Inputs

#call

an object

Outputs

quot/f

an object

Definition

USING: compiler.tree.propagation.info kernel ;

IN: compiler.tree.propagation.call-effect

: execute-inlining ( #call -- quot/f )
    top-two >literal< [
        2dup swap execute-effect-unsafe?
        [ nip [ [ 2drop ] ] dip [ execute ] curry compose ]
        [ drop execute-effect>quot ] if
    ] [ drop execute-effect>quot ] if ;