get-prop-named ( obj name -- prop/f )

Vocabulary

modern.html

Inputs

obj	an object
name	an object

Outputs

prop/f

an object

Definition

USING: accessors kernel sequences unicode ;

IN: modern.html

: get-prop-named ( obj name -- prop/f )
    [ props>> ] dip [ [ first >lower ] ] dip [ = ] curry compose
    find nip ;