Paste: change-at quote affecting assoc

( scratchpad ) :: doit ( key assoc quot -- ) key assoc quot '[ key assoc [ 90 + ] change-at _ call ] change-at ; inline
( scratchpad ) H{ { "a" 0 } } dup "a" swap [ 1 + ] doit

--- Data stack:
H{ { "a" 1 } }