define-setter ( name -- ) - Factor Documentation

define-setter ( name -- )
Factor documentation > Factor handbook > The language > Objects > Low-level slot operations

Prev:	define-writer ( class slot-spec -- )
Next:	define-changer ( name -- )

Vocabulary
slots

Definition

USING: kernel make words ;

IN: slots

: define-setter ( name -- )
    dup setter-word dup deferred? [
        [ \ over , swap writer-word , ] [ ] make
        ( object value -- object ) define-inline
    ] [ 2drop ] if ;