define-writer ( class slot-spec -- )
Factor handbook » The language » Objects » Low-level slot operations

Prev:	define-reader ( class slot-spec -- )
Next:	define-setter ( name -- )

Vocabulary
slots

Inputs

class	a class
slot-spec	a slot-spec

Outputs
None

Word description
Defines a generic word writer to write a new value to a slot specified by slot-spec.

Notes
Calling this word directly is not necessary in most cases. Higher-level words call it automatically.

Definition

USING: accessors combinators kernel ;

IN: slots

: define-writer ( class slot-spec -- )
    [ nip name>> define-writer-generic ] [
        {
            [ drop ]
            [ nip name>> writer-word ]
            [ writer-quot ]
            [ nip writer-props ]
        } 2cleave define-typecheck
    ] 2bi ;