forget-slot-accessors ( class slots -- )

Vocabulary

classes.tuple

Inputs

class	an object
slots	an object

Outputs

None

Definition

USING: accessors definitions generic kernel sequences slots ;

IN: classes.tuple

: forget-slot-accessors ( class slots -- )
    [
        name>>
        [ reader-word ?lookup-method forget ]
        [ writer-word ?lookup-method forget ] 2bi
    ] with each ;