anchor.diff:  state__store_callsite(_From, #output{content = none}, _CallArity, State) ->
     State;
   state__store_callsite(From, To, CallArity, 
  -		      #state{call = Calls, arities = Arities} = State) ->
  +		      #state{calls = Calls, arities = Arities} = State) ->
     Filter = fun(external) -> true;
   	      (Fun) -> CallArity =:= dict:fetch(Fun, Arities) 
   	   end,
     case filter_outs(To, Filter) of
       #output{content = none} -> State;
  -    To1 -> State#state{call = map__store(From, To1, Calls)}
  -  end.
  -
  -state__calls(#state{call = Calls}) ->
  +    To1 -> State#state{calls = map__store(From, To1, Calls)}
  +  end.
  +
  +state__calls(#state{calls = Calls}) ->
     Calls.
   
   %%------------------------------------------------------------
  
positive.code: 
  -type local_set() :: 'none' | #set{}.
  
  -record(state, {deps    :: dict:dict(),
  		esc     :: local_set(), 
  		call    :: dict:dict(),
  		arities :: dict:dict(),
  		letrecs :: dict:dict()}).
  
  state__new(Tree) ->
    Exports = set__from_list([X || X <- cerl:module_exports(Tree)]),
  
negative.code: 
  state__add_deps(_From, #output{content = none}, State) ->
    State;
  state__add_deps(From, #output{type = single, content = To},
  		#state{deps = Map} = State) ->
    %% io:format("Adding deps from ~w to ~w\n", [From, set__to_ordsets(To)]),
    State#state{deps = map__add(From, To, Map)}.
  