reset-struct-slot ( struct slot -- )

Vocabulary

classes.struct.prettyprint

Inputs

struct	an object
slot	an object

Outputs

None

Definition

USING: accessors classes classes.struct combinators kernel slots
;

IN: classes.struct.prettyprint

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