fix-capacity-class ( class -- class' )

Vocabulary

compiler.tree.propagation.info

Inputs

class

an object

Outputs

class'

an object

Definition

USING: assocs kernel math sequences.private ;

IN: compiler.tree.propagation.info

: fix-capacity-class ( class -- class' )
    {
        { array-capacity fixnum }
        { integer-array-capacity integer }
    } ?at drop ;