define-protocol-slot ( name -- )

Vocabulary

slots

Inputs

name

an object

Outputs

None

Definition

USING: combinators ;

IN: slots

: define-protocol-slot ( name -- )
    {
        [ define-reader-generic ]
        [ define-writer-generic ]
        [ define-setter ]
        [ define-changer ]
    } cleave ;