at-pathname ( pathname assoc -- value )

Vocabulary

gml.runtime

Inputs

pathname	an object
assoc	an object

Outputs

value

an object

Definition

USING: accessors assocs kernel sequences ;

IN: gml.runtime

: at-pathname ( pathname assoc -- value )
    swap names>> [ swap ?at [ unbound-name ] unless ] each ;