find-symbol ( symbols name -- symbol/f )

Vocabulary

elf

Inputs

symbols	an object
name	an object

Outputs

symbol/f

an object

Definition

USING: accessors kernel sequences ;

IN: elf

: find-symbol ( symbols name -- symbol/f )
    [ [ name>> ] ] dip [ = ] curry compose find nip ; inline