get-struct-slot ( struct slot -- value present? )

Vocabulary

classes.struct.prettyprint

Inputs

struct	an object
slot	an object

Outputs

value	an object
present?	an object

Definition

USING: accessors classes classes.struct combinators kernel slots
;

IN: classes.struct.prettyprint

: get-struct-slot ( struct slot -- value present? )
    over class-of struct-slots slot-named
    [ name>> reader-word ( struct -- value ) execute-effect t ]
    [ drop f f ] if* ;