fold-<tuple-boa>? ( values class -- ? )

Vocabulary

compiler.tree.propagation.slots

Inputs

values	an object
class	an object

Outputs

?

an object

Definition

USING: accessors classes.algebra kernel sequences ;

IN: compiler.tree.propagation.slots

: fold-<tuple-boa>? ( values class -- ? )
    [ rest-slice [ dup [ literal?>> ] when ] all? ]
    [ identity-tuple class<= not ] bi* and ;