mod-outputs-info ( info1 info2 fixer-word -- info3 )

Vocabulary

compiler.tree.propagation.known-words

Inputs

info1	an object
info2	an object
fixer-word	an object

Outputs

info3

an object

Definition

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

IN: compiler.tree.propagation.known-words

: mod-outputs-info ( info1 info2 fixer-word -- info3 )
    [
        [ [ class>> ] bi@ ] [ [ interval>> ] bi@ ] 2bi
        mod-merge-classes/intervals
    ] dip ( cls int -- cls' int' ) execute-effect
    <class/interval-info> ;