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

Vocabulary

words

Inputs

word	an object
prop	an object
quot	a quotation with stack effect ( ..a value -- ..b newvalue )

Outputs

None

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