anchor.diff:  get_callgraph(SearchPaths) ->
       gen_server:call(wrangler_callgraph_server, {get, SearchPaths}, infinity).
   
  +-spec(get_sccs_including_fun/2::({modulename(),functionname(), arity()}, [dir()]) -> scc_order()).
  +get_sccs_including_fun({M, F, A}, SearchPaths) ->    
  +    gen_servers:call(wrangler_callgraph_server, {get_fun_sccs, {M,F, A}, SearchPaths}).
   
   %%--------------------------------------------------------------------
   %%% Internal functions
  
positive.code: 	     {reply, #callgraph{}, #state{}}).
  handle_call({get, SearchPaths}, _From, State) ->
      {Reply, State1} = get_callgraph(SearchPaths, State),
      {reply, Reply, State1}.
  
  %%--------------------------------------------------------------------
  
negative.code: 	    {CallGraph, #state{callgraph=[{SearchPaths, CallGraph}|State#state.callgraph]}}
      end.
  
  
  get_sccs_including_fun({M, F, A}, SearchPaths, State) ->
      {#callgraph{scc_order = Sccs}, State1} = get_callgraph(SearchPaths, State),
      ResSccs = lists:filter(fun (Sc) ->
  				 lists:any(fun (Elem) ->
  						   case Elem of
  						       {{M, F, A}, _} -> true;
  						       _ -> false
  						   end
  					   end,
  					   Sc)
  			 end, Sccs),
      {ResSccs, State1}.
     
  
      
  
     
  