anchor.diff:  	    {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}.
  +   
  +
       
  +
      
  
positive.code: -include("../hrl/wrangler.hrl").
  
  %% API
  -export([start_callgraph_server/0, get_callgraph/1]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
  
negative.code: 	     {reply, #callgraph{}, #state{}}).
  handle_call({get, SearchPaths}, _From, State) ->
      {Reply, State1} = get_callgraph(SearchPaths, State),
      {reply, Reply, State1};
  handle_call({get_fun_sccs, MFA, SearchPaths}, _From, State) ->
      {Reply, State1} = get_sccs_including_fun(MFA, SearchPaths, State),
      {reply, Reply, State1}.
  
  %%--------------------------------------------------------------------
  