immutable-tuple-boa? ( #call -- ? )

Vocabulary

compiler.tree.propagation.info

Inputs

#call

an object

Outputs

?

an object

Definition

USING: accessors classes.tuple classes.tuple.private kernel
sequences ;

IN: compiler.tree.propagation.info

: immutable-tuple-boa? ( #call -- ? )
    dup word>> \ <tuple-boa> eq? [
        dup in-d>> last node-value-info
        literal>> first immutable-tuple-class?
    ] [ drop f ] if ;