anchor.diff:  
   %% API
   -export([start_link/0,
  -
  +         inhibit_view_compaction/3, uninhibit_view_compaction/3,
            force_compact_bucket/1, force_compact_db_files/1, force_compact_view/2,
            cancel_forced_bucket_compaction/1, cancel_forced_db_compaction/1,
            cancel_forced_view_compaction/2]).
  
positive.code:             NewState = compact_next_bucket(NewState1),
              {next_state, compacting, NewState}
      end;
  handle_info({'EXIT', Compactor, Reason}, compacting,
              #state{compactor_pid=Compactor,
                     buckets_to_compact=Buckets} = State) ->
  
negative.code:                 tl(Buckets)
          end,
  
      NewState0 = case NewBuckets =:= Buckets of
                      true ->
                          State;
                      false ->
                          DoneBucket = hd(Buckets),
                          case State of
                              #state{view_compaction_inhibited_completion_waiter = Waiter,
                                     view_compaction_inhibited_bucket = Bucket,
                                     view_compaction_inhibited_ref = MRef}
                                when (Bucket =:= DoneBucket andalso Waiter =/= undefined) ->
                                  ?log_debug("View compaction inhibition occurred for bucket ~s. Replying to ~p", [DoneBucket, Waiter]),
                                  gen_server:reply(Waiter, {ok, MRef}),
                                  State#state{view_compaction_inhibited_completion_waiter = undefined};
                              _ ->
                                  State
                          end
                  end,
  
      NewState1 = NewState0#state{compactor_pid=undefined,
                                  compactor_config=undefined,
                                  buckets_to_compact=NewBuckets},
      case NewBuckets of
          [] ->
              ?log_debug("Finished compaction iteration."),
              {next_state, idle, schedule_next_compaction(NewState1)};
          _ ->
              {next_state, compacting, compact_next_bucket(NewState1)}
      end;
  handle_info({'EXIT', Pid, Reason}, StateName,
              #state{running_forced_compactions=Compactions} = State) ->
  