top-two ( #call -- effect value )

Vocabulary

compiler.tree.propagation.call-effect

Inputs

#call

an object

Outputs

effect	an object
value	an object

Definition

USING: accessors compiler.tree.propagation.info kernel sequences
;

IN: compiler.tree.propagation.call-effect

: top-two ( #call -- effect value )
    in-d>> last2 [ value-info ] bi@ literal>> swap ;