Paste: refactor

How do you factor out the quotation below to avoid the boilerplate?  the quotation stack effects are below:


: add-at ( value key assoc -- )
    rot [ ?adjoin ] curry change-at ;

: remove-at ( value key assoc -- )
    rot [ ?delete ] curry change-at ;

: ?adjoin ( set elt -- set )
: ?delete ( set elt -- set )

Annotation: quotation factored

: change-set ( value key assoc quot -- ) 
  [ rot ] dip curry change-at ; inline

: add-at ( value key assoc -- )
  [ ?adjoin ] change-set ;

: remove-at ( value key assoc -- )
  [ ?delete ] change-set

New Annotation