forget-struct-slot-accessors ( class -- )

Vocabulary

classes.struct.private

Inputs

class

an object

Outputs

None

Definition

USING: accessors classes.struct classes.tuple kernel words ;

IN: classes.struct.private

: forget-struct-slot-accessors ( class -- )
    dup "c-type" word-prop [
        dup struct-c-type?
        [ fields>> forget-slot-accessors ] [ 2drop ] if
    ] [ drop ] if* ;