anchor.diff:      end.
   
   
  -replace_clause_body(C, FunName,Exp, ActualPar ) ->
  +replace_clause_body(C, FunName, Exp, ActualPar) ->
       {EStart, EEnd} = refac_util:get_range(Exp),
       {CStart, CEnd} = refac_util:get_range(C),
  -    case (CStart =< EStart) andalso (EEnd =< CEnd) of
  -	true ->
  -	    Pats = refac_syntax:clause_patterns(C),
  -	    G = refac_syntax:clause_guard(C),
  -	    Body = [refac_syntax:application(refac_syntax:atom(FunName), Pats++[ActualPar])],
  -	    Body1 = [B1||B<-Body,
  -			      {B1,_} <-[refac_util:stop_tdTP(fun do_replace_underscore/2, B, [])]],
  -	    refac_util:rewrite(C, refac_syntax:clause(Pats, G, Body1));
  -	_ -> C %% add_actual_parameter(C, {FileName, FunName, Arity, Exp1, Info, SearchPaths, TabWidth})
  +    case CStart =< EStart andalso EEnd =< CEnd of
  +      true ->
  +	  Pats = refac_syntax:clause_patterns(C),
  +	  G = refac_syntax:clause_guard(C),
  +	  Body = [refac_syntax:application(refac_syntax:atom(FunName), Pats ++ [ActualPar])],
  +	  Body1 = [B1 || B <- Body,
  +			 {B1, _} <- [refac_util:stop_tdTP(fun do_replace_underscore/2, B, [])]],
  +	  refac_util:rewrite(C, refac_syntax:clause(Pats, G, Body1));
  +      _ -> C %% add_actual_parameter(C, {FileName, FunName, Arity, Exp1, Info, SearchPaths, TabWidth})
       end.
   
   
  
positive.code:     ?wrangler_io("\nCMD: ~p:generalise(~p, {~p,~p}, {~p,~p}, ~p,~p,~p).\n",
  		 [?MODULE, FileName, Line, Col, Line1, Col1, ParName, SearchPaths, TabWidth]),
      Cmd = "CMD: " ++ atom_to_list(?MODULE) ++ ":generalise(" ++ "\"" ++
  	FileName ++ "\", {" ++ integer_to_list(Line) ++	", " ++ integer_to_list(Col) ++ "},"++
  	"{" ++ integer_to_list(Line1) ++ ", " ++ integer_to_list(Col1) ++ "},"  ++ "\"" ++ ParName ++ "\","
  	++ "[" ++ refac_util:format_search_paths(SearchPaths) ++ "]," ++ integer_to_list(TabWidth) ++ ").",
      case refac_util:is_var_name(ParName) of
        false -> throw({error, "Invalid parameter name!"});
        true -> ok
  
negative.code:     
  is_eunit_special_function(FileName, FunName, Arity) ->
      UsedTestFrameWorks = refac_util:test_framework_used(FileName),
      case lists:member(eunit, UsedTestFrameWorks) of
        true ->
  	  Arity == 0 andalso
  	    (lists:suffix(?DEFAULT_EUNIT_TEST_SUFFIX, FunName) orelse
  	       lists:suffix(?DEFAULT_EUNIT_GENERATOR_SUFFIX, FunName) orelse
  		 FunName == "test");
        _ -> false
      end.
  
  check_atoms(AnnAST, AtomNames) ->
  