Vocabulary
slots

Inputs
namean object


Outputs
wordan object


Definition


: writer-word ( name -- word )
"<<" append "accessors" create-word
dup t "writer" set-word-prop ;