anchor.diff:  register(Module, Priority) ->
       Modifier = fun
           (undefined) ->
  -            [{Module, Priority}];
  +            [{Priority, Module}];
           (Values) ->
               Values2 = merge_values(Values),
  -            orddict:store(Module, Priority, Values2)
  +            insert_mutator(Module, Priority, Values2)
       end,
       riak_core_metadata:put({riak_kv, mutators}, list, Modifier).
   
  
positive.code:             Values;
          (Values, '$deleted') ->
              Values;
          (Values1, Values2) ->
              merge_values([Values1, Values2])
      end,
      ModulesAndPriors = riak_core_metadata:get({riak_kv, mutators}, list, [{default, []}, {resolver, Resolver}]),
      Flipped = [{P, M} || {M, P} <- ModulesAndPriors],
      Sorted = lists:sort(Flipped),
      Modules = [M || {_P, M} <- Sorted],
      {ok, Modules}.
  
  %% @doc Unmutate an object after retrieval from storage. When an object is
  
negative.code:             [];
          (Values) ->
              Values2 = merge_values(Values),
              lists:keydelete(Module, 2, Values2)
      end,
      riak_core_metadata:put({riak_kv, mutators}, list, Modifier, []).
  
  