<sequence-info> ( length class -- info )

Vocabulary

compiler.tree.propagation.info

Inputs

length	an object
class	an object

Outputs

info

an object

Definition

USING: accessors kernel ;

IN: compiler.tree.propagation.info

: <sequence-info> ( length class -- info )
    <value-info> over >>class [ (slots-with-length) ] dip
    swap >>slots init-value-info ;