(propagate-<tuple-boa>) ( values class -- info )


Vocabulary
compiler.tree.propagation.slots

Inputs
valuesan object
classan object


Outputs
infoan object


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

IN: compiler.tree.propagation.slots

: (propagate-<tuple-boa>) ( values class -- info )
[ read-only-slots ] keep 2dup fold-<tuple-boa>?
[ [ rest-slice ] dip fold-<tuple-boa> ] [ <tuple-info> ] if
;