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