input-classes-match? ( #call word -- ? )

Vocabulary

compiler.tree.propagation.simple

Inputs

#call	an object
word	an object

Outputs

?

an object

Definition

USING: accessors classes compiler.tree.propagation.info kernel
sequences words ;

IN: compiler.tree.propagation.simple

: input-classes-match? ( #call word -- ? )
    [ in-d>> ] [ "input-classes" word-prop ] bi*
    [ [ value-info literal>> ] dip instance? ] 2all? ;