union-slot ( info1 info2 -- info )


Vocabulary
compiler.tree.propagation.info

Inputs
info1an object
info2an object


Outputs
infoan object


Definition
USING: kernel ;

IN: compiler.tree.propagation.info

: union-slot ( info1 info2 -- info )
2dup and [ (value-info-union) ] [ 2drop f ] if ;