union-slots ( info1 info2 -- slots )


Vocabulary
compiler.tree.propagation.info

Inputs
info1an object
info2an object


Outputs
slotsan object


Definition
USING: accessors kernel sequences ;

IN: compiler.tree.propagation.info

: union-slots ( info1 info2 -- slots )
[ slots>> ] bi@ 2dup [ length ] same?
[ [ union-slot ] 2map ] [ 2drop f ] if ;