set-struct-slot ( value struct slot -- )

Vocabulary

classes.struct.prettyprint

Inputs

value	an object
struct	an object
slot	an object

Outputs

None

Definition

USING: accessors classes classes.struct combinators kernel slots
;

IN: classes.struct.prettyprint

: set-struct-slot ( value struct slot -- )
    over class-of struct-slots slot-named
    [ name>> writer-word ( value struct -- ) execute-effect ]
    [ 2drop ] if* ;