anchor.diff:  		{error, no_value}
   	  end
       end.
  -    
   
   has_macros(Node) ->
  -    F = fun(N, _Others) ->
  +    F = fun (N, _Others) ->
   		case refac_syntax:type(N) of
  -		    macro -> {N, true};
  -		    _ -> {[], false}
  +		  macro -> {N, true};
  +		  _ -> {[], false}
   		end
  -	end,			    
  -    {_, Res}= refac_util:once_tdTU(F, Node, []),
  +	end,
  +    {_, Res} = refac_util:once_tdTU(F, Node, []),
       Res.
   
   get_toks(FileName, Node, TabWidth) ->
       Toks = refac_util:tokenize(FileName, false, TabWidth),
       {StartPos, EndPos} = refac_util:get_range(Node),
  -    Toks1 = lists:dropwhile(fun(T) ->
  -				    token_loc(T) < StartPos 
  +    Toks1 = lists:dropwhile(fun (T) ->
  +				    token_loc(T) < StartPos
   			    end, Toks),
  -    lists:takewhile(fun(T) ->
  -			    token_loc(T) =< EndPos 
  +    lists:takewhile(fun (T) ->
  +			    token_loc(T) =< EndPos
   		    end, Toks1).
  -    
   
   token_loc(T) ->
       case T of
  -	{_, L, _V} -> L;
  -	{_, L1} -> L1
  +      {_, L, _V} -> L;
  +      {_, L1} -> L1
       end.
   
   test_framework_aware_name_checking(UsedFrameWorks, OldFunName, Arity, NewFunName) ->
  -    eunit_name_checking(UsedFrameWorks, OldFunName,Arity, NewFunName),
  +    eunit_name_checking(UsedFrameWorks, OldFunName, Arity, NewFunName),
       eqc_name_checking(UsedFrameWorks, OldFunName, Arity, NewFunName),
       testserver_name_checking(UsedFrameWorks, OldFunName, Arity, NewFunName),
       commontest_name_checking(UsedFrameWorks, OldFunName, Arity, NewFunName).
  -
   
   eunit_name_checking(UsedFrameWorks, OldFunName, Arity, NewFunName) ->
       case lists:member(eunit, UsedFrameWorks) of
  
positive.code: 	  eunit_name_checking_1(atom_to_list(OldFunName), atom_to_list(NewFunName));
        _ -> ok
      end.
     
  eunit_name_checking_1(OldFunName, NewFunName) ->
      case lists:suffix(?DEFAULT_EUNIT_TEST_SUFFIX, OldFunName) of 
  	true ->
  	    case lists:suffix(?DEFAULT_EUNIT_TEST_SUFFIX, NewFunName) of 
  		true ->
  		    ok;
  		_ -> 
  		    throw({warning,"Renaming will make this function no "
  			   "longer an EUnit test function, continue?"})
  	    end;
  	_ -> case lists:suffix(?DEFAULT_EUNIT_GENERATOR_SUFFIX,OldFunName) of 
  		 true ->
  		     case lists:suffix(?DEFAULT_EUNIT_GENERATOR_SUFFIX, NewFunName) of 
  			 true -> 
  			     ok;
  			 _ -> 
  			     throw({warning,"Renaming will make this function no longer "
  				    "an EUnit test generator function, continue?"})
  		     end;
  		 _ ->case lists:suffix(?DEFAULT_EUNIT_TEST_SUFFIX, NewFunName) of 
  			 true -> 
  			     throw({warning, "Renaming will make this function an "
  				    "EUnit test function, continue?"});		     
  			 _ ->
  			     case lists:suffix(?DEFAULT_EUNIT_GENERATOR_SUFFIX,NewFunName) of 
  				 true -> 
  				     throw({warning, "Renaming will make this function an "
  					    "EUnit test geneator function, continue?"});
  				  _ -> 
  				     ok
  			     end
  		     end
  	     end
      end.
  
  eqc_name_checking(UsedFrameWorks, OldFunName, Arity, NewFunName) ->
      case lists:member(eqc_statem, UsedFrameWorks) of 
  	true -> 
  	    eqc_statem_name_checking(OldFunName, Arity, NewFunName);
  	false -> ok
      end,
      case lists:member(eqc,UsedFrameWorks) of 
  	true -> 
  	    eqc_name_checking(atom_to_list(OldFunName), Arity, atom_to_list(NewFunName));
  	false -> ok
      end.
     
  eqc_name_checking(OldFunName, _Arity, NewFunName) ->
      case lists:prefix("prop_", OldFunName) of 
  	true -> 
  	    case lists:prefix("prop_", NewFunName) of 
  		true -> 
  		    ok;
  		false -> 
  		    throw({warning, "Renaming will make this function no longer a quickcheck property, continue?"})
  	    end;
  	false ->
  	    case lists:prefix("prop_", NewFunName) of 
  		true ->
  		    throw({warning, "Renaming will make this function a quickcheck property, continue?"});
  		false -> ok
  	    end
      end.
  	    
  
  
  eqc_statem_name_checking(OldFunName, Arity, NewFunName) ->
      case lists:member({OldFunName, Arity}, eqc_statem_callback_funs()) of 
  	true ->
  	    throw({warning, "The function selected is a callback function, continue?"});
  	false -> 
  	    case lists:member({NewFunName, Arity}, eqc_statem_callback_funs()) of 
  		true ->
  		    throw({warning, "The new function would be a quickcheck callback function, continue?"});
  		false -> ok
  	    end
      end.
  		 
  testserver_name_checking(UsedFrameWorks, OldFunName, Arity, NewFunName) ->
      case lists:member(testserver, UsedFrameWorks) of 
  	true ->
  	    testserver_name_checking(OldFunName, Arity, NewFunName);
  	false -> ok
      end.
  
  testserver_name_checking(OldFunName, Arity, NewFunName) ->
      case lists:member({OldFunName, Arity}, testserver_callback_funs()) of 
  	true ->
  	    throw({warning, "The function selected is mandatory in a Test Server test suite, continue?"});
  	false -> 
  	    case lists:member({NewFunName, Arity}, testserver_callback_funs()) of 
  		true ->
  		    throw({warning, "The new function would be Test Server special function, continue?"});
  		false -> ok
  	    end
      end. 	 
  									    
  commontest_name_checking(UsedFrameWorks, OldFunName, Arity, NewFunName) ->
      case lists:member(commontest, UsedFrameWorks) of 
  	true ->
  	    commontest_name_checking(OldFunName, Arity, NewFunName);
  	false -> ok
      end.
  commontest_name_checking(OldFunName, Arity, NewFunName) ->
      case lists:member({OldFunName, Arity}, commontest_callback_funs()) of 
  	true ->
  	    throw({warning, "The function selected is a Common Test callback function, continue?"});
  	false ->
  	    case lists:member({NewFunName, Arity}, commontest_callback_funs()) of 
  		true ->
  		    throw({warning, "The new function would be a Common Test callback function, continue?"});
  		false -> ok
  	    end
      end.
  	    
  
  eqc_statem_callback_funs()->
      [{initial_state, 0}, {precondition, 2}, {command,1}, {postcondition, 3}, {next_state,3}].
  commontest_callback_funs() ->
      [{all,0}, {groups, 0}, {suite, 0},{init_per_suite, 1}, {end_per_suite, 1},{init_per_group,2},
       {end_per_group, 2}, {init_per_testcase,2},{end_per_testcase, 2}, {testcase, 0},{testcase, 1}].
  testserver_callback_funs() ->
      [{all, 0}, {init_per_suite,1}, {end_per_suite,1},{init_per_testcase,2}, {fin_per_testcase,2}].
  
  apply_style_funs() ->
      [{{erlang, apply, 3}, [modulenmae, functionname, arglist], term},
  
negative.code: 		      N = refac_syntax:function_name(T),
  		      collect_atoms_1(AtomNames, S, N, function);
  		  application ->
  		      Operator = refac_syntax:application_operator(T),
  		      collect_atoms_1(AtomNames, S, Operator, function);
  		  module_qualifier ->
  		      Mod = refac_syntax:module_qualifier_argument(T),
  		      Fun = refac_syntax:module_qualifier_body(T),
  