intersect-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

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