find-identity ( patterns infos -- result )


Vocabulary
compiler.tree.identities

Inputs
patternsan object
infosan object


Outputs
resultan object


Definition
USING: kernel sequences ;

IN: compiler.tree.identities

: find-identity ( patterns infos -- result )
[ [ first ] ] dip [ matches? ] curry compose find swap
[ second ] when ;