anchor.diff:                       lists:foldl(fun({DiffReason, BKeyBin}, Count) ->
                                            {B, K} = binary_to_term(BKeyBin),
                                            T = {B, K, DiffReason},
  -                                         if Count rem 5000 == 0 ->
  +                                         if Count rem ?LOG_BATCH_SIZE == 0 ->
                                                    ok = disk_log:log(WriteLog, T);
                                               true ->
                                                    ok = disk_log:alog(WriteLog, T)
  
positive.code: 
  %% Per state transition timeout used by certain transitions
  -define(DEFAULT_ACTION_TIMEOUT, 300000). %% 5 minutes
  
  %%%===================================================================
  %%% API
  
negative.code:     LogFile2 = lists:flatten(io_lib:format("~s/~s/out.~p.~p.~p",
                                             [TmpDir, ?MODULE, NA, NB, NC])),
      ok = filelib:ensure_dir(LogFile2),
      Remote = fun(get_bucket, {L, B}) ->
                       exchange_bucket(RemoteTree, IndexN, L, B);
                  (key_hashes, Segment) ->
                       exchange_segment(RemoteTree, IndexN, Segment);
  