matches? ( pattern infos -- ? )

Vocabulary

compiler.tree.identities

Inputs

pattern	an object
infos	an object

Outputs

?

an object

Definition

USING: accessors kernel sequences ;

IN: compiler.tree.identities

: matches? ( pattern infos -- ? )
    [ over X eq? [ 2drop t ] [ literal>> = ] if ] 2all? ;