Vocabulary
slots

Inputs
namean object


Outputs
wordan object


Definition


: reader-word ( name -- word )
">>" append "accessors" create-word
dup t "reader" set-word-prop ;