<local-writer> ( reader -- word )


Vocabulary
locals.types

Inputs
readeran object


Outputs
wordan object


Definition
USING: accessors combinators kernel sequences words ;

IN: locals.types

: <local-writer> ( reader -- word )
dup name>> "!" append f <word> {
[ nip t "local-writer?" set-word-prop ]
[ swap "local-reader" set-word-prop ]
[ "local-writer" set-word-prop ]
[ nip ]
} 2cleave ;