change-word-prop ( ..a word prop quot: ( ..a value -- ..b newvalue ) -- ..b )


Vocabulary
words

Definition
USING: accessors assocs kernel ;

IN: words

: change-word-prop
( ..a word prop quot: ( ..a value -- ..b newvalue ) -- ..b )
[ swap props>> ] dip change-at ; inline