anchor.diff:  
   -export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3, start_link/0]).
   
  --export([for_commit/1, for_commit/2, cache_dump/0]).
  +-export([for_commit/1, for_commit/2, cache_dump/0, reset/0]).
   
   -record(vcstate, {table, storage}).
   
  
positive.code: init(_) ->
      init([]).
  
  %%% API functions
  
  for_commit(Commit) ->
  
negative.code:     Result.
  
  init(Options) when is_list(Options) ->
      Table = init_table(),
      % XXX: use application env here
      StoreMod = case orddict:find(storage_module, Options) of
  		   {ok, Mod} ->
  