slot-words, ( slot-spec -- )

Vocabulary

delegate.private

Inputs

slot-spec

an object

Outputs

None

Definition

USING: accessors arrays kernel make slots ;

IN: delegate.private

: slot-words, ( slot-spec -- )
    [ name>> reader-word 0 2array , ] [
        dup read-only>>
        [ drop ] [ name>> writer-word 0 2array , ] if
    ] bi ;