writer-word<< ( name -- word )


Vocabulary
slots.syntax

Inputs
namean object


Outputs
wordan object


Definition
USING: sequences words ;

IN: slots.syntax

: writer-word<< ( name -- word )
">>" prepend "accessors" lookup-word ;