anchor.diff:  	_ -> true
       end.
   
  -transform_apply_call(Node,{ModName, FunName, Arity}, TargetModName) ->
  -    Message = fun (Pos) -> ?wrangler_io("WARNING: function ***apply*** is used at location({line, col}):~p, and wrangler " 
  -				    "could not decide whether this site should be refactored, please check!!!\n",
  -				     [Pos])
  +transform_apply_call(Node, {ModName, FunName, Arity}, TargetModName) ->
  +    Message = fun
  +		(Pos) -> ?wrangler_io("WARNING: function ***apply*** is used at location({line, col}):~p, and wrangler "
  +				      "could not decide whether this site should be refactored, please check!!!\n",
  +				      [Pos])
   	      end,
       Operator = refac_syntax:application_operator(Node),
       Arguments = refac_syntax:application_arguments(Node),
  -    case Arguments of 
  -	[Fun, Args] -> 
  -	    case refac_syntax:type(Fun) of 
  -		implicit_fun ->
  -		    Name = refac_syntax:implicit_fun_name(Fun),
  -		    B = refac_syntax:atom_value(refac_syntax:arity_qualifier_body(Name)),
  -		    A = refac_syntax:atom_value(refac_syntax:arity_qualifier_argument(Name)),
  -		    case {B, A} of 
  -			{FunName, Arity} ->
  -			   FunName1= refac_syntax:module_qualifier(refac_syntax:atom(TargetModName),
  -								    refac_syntax:atom(FunName)),
  -			   Fun1 = refac_syntax:implicit_fun(FunName1, refac_syntax:arity_qualifier_argument(Name)),
  -			   {refac_syntax:copy_attrs(Node, refac_syntax:application
  -						    (Operator, [Fun1, Args])), true};
  -				      
  -			_ -> {Node, false}
  -		    end;
  -		_ -> {Node, false}
  -	    end;
  -	[Mod, Fun, Args] ->
  -	    Mod1 = refac_util:try_evaluation([refac_syntax:revert(Mod)]),
  -	    Fun1 = refac_util:try_evaluation([refac_syntax:revert(Fun)]),
  -	    Pos = refac_syntax:get_pos(Node),
  -	    case Fun1 of 
  -		{value, FunName} ->
  -		    case Mod1 of 
  -			{value,ModName} ->
  -			    case refac_syntax:type(Args) of 
  -	 			list ->
  -				    case refac_syntax:list_length(Args) of 
  -					Arity ->
  -					    Mod2 = refac_syntax:atom(TargetModName),
  -					    {refac_syntax:copy_pos(Node,(refac_syntax:copy_attrs(Node, 
  -						 refac_syntax:application(Operator, [Mod2, Fun, Args])))), true};
  -					_ -> {Node, false}
  -				    end;
  -				nil -> if Arity==0 ->
  -					       Mod2 = refac_syntax:atom(TargetModName),
  -					       {refac_syntax:copy_pos(Node,(refac_syntax:copy_attrs(Node, 
  -							  refac_syntax:application(Operator, [Mod2, Fun, Args])))), true};
  -					  true -> {Node, false}
  -				       end;
  -				_ -> Message(Pos),
  -				     {Node, false}
  +    case Arguments of
  +      [Fun, Args] ->
  +	  case refac_syntax:type(Fun) of
  +	    implicit_fun ->
  +		Name = refac_syntax:implicit_fun_name(Fun),
  +		B = refac_syntax:atom_value(refac_syntax:arity_qualifier_body(Name)),
  +		A = refac_syntax:atom_value(refac_syntax:arity_qualifier_argument(Name)),
  +		case {B, A} of
  +		  {FunName, Arity} ->
  +		      FunName1 = refac_syntax:module_qualifier(refac_syntax:atom(TargetModName),
  +							       refac_syntax:atom(FunName)),
  +		      Fun1 = refac_syntax:implicit_fun(FunName1, refac_syntax:arity_qualifier_argument(Name)),
  +		      {refac_syntax:copy_attrs(Node, refac_syntax:application(Operator, [Fun1, Args])), true};
  +		  _ -> {Node, false}
  +		end;
  +	    _ -> {Node, false}
  +	  end;
  +      [Mod, Fun, Args] ->
  +	  Mod1 = refac_util:try_evaluation([refac_syntax:revert(Mod)]),
  +	  Fun1 = refac_util:try_evaluation([refac_syntax:revert(Fun)]),
  +	  Pos = refac_syntax:get_pos(Node),
  +	  case Fun1 of
  +	    {value, FunName} ->
  +		case Mod1 of
  +		  {value, ModName} ->
  +		      case refac_syntax:type(Args) of
  +			list ->
  +			    case refac_syntax:list_length(Args) of
  +			      Arity ->
  +				  Mod2 = refac_syntax:atom(TargetModName),
  +				  {refac_syntax:copy_pos(Node, refac_syntax:copy_attrs(Node,
  +										       refac_syntax:application(Operator, [Mod2, Fun, Args]))), true};
  +			      _ -> {Node, false}
   			    end;
  -			{value, _}-> {Node, false};
  -			{error, _Reason} -> 
  -			    case refac_syntax:type(Args) of 
  -				list -> case refac_syntax:list_length(Args) of 
  -					    Arity -> Message(Pos),
  -						     {Node, false};
  -					    _ -> {Node, false}
  -					end;
  -				_ -> Message(Pos),
  -				     {Node, false}
  -			    end
  -		    end;
  -		{value, _} -> {Node, false};
  -		{error, _Reason} ->  
  -		    case Mod1 of 
  -			{value, ModName} ->
  -			    case refac_syntax:type(Args) of 
  -				list -> case refac_syntax:list_length(Args) of 
  -					    Arity -> Message(Pos),
  -						     {Node, false};
  -					    _ -> {Node, false}
  -					end;
  -				_ -> Message(Pos),
  -				     {Node, false}
  -			    end;
  -			{value, _} -> {Node, false};
  -			{error, _Reason} -> case refac_syntax:type(Args) of 
  -						list-> case refac_syntax:list_length(Args) of 
  -							   Arity -> Message(Pos),
  -								    {Node, false};
  -							   _ -> {Node, false}
  -						       end;
  -						_  -> Message(Pos),
  -						      {Node, false}
  -					    end
  -		    end			   
  -	    end;
  -	_ -> {Node, false}
  -    end.
  - 	     
  -
  -transform_spawn_call(Node,{ModName, FunName, Arity}, TargetModName) ->
  -    Message = fun (Pos) -> ?wrangler_io("WARNING: function ***spawn*** is used at location({line, col}):~p, and wrangler " 
  -				    "could not decide whether this site should be refactored, please check!!!\n",
  -				     [Pos])
  -	      end,
  -    Operator = refac_syntax:application_operator(Node),
  -    Arguments = refac_syntax:application_arguments(Node),
  -    [N, Mod, Fun, Args] = if length(Arguments)==4 -> Arguments;			       
  -				true -> [none] ++ Arguments
  -			     end,
  -    Mod1 = refac_util:try_evaluation([refac_syntax:revert(Mod)]),
  -    Fun1 = refac_util:try_evaluation([refac_syntax:revert(Fun)]),
  -    Pos = refac_syntax:get_pos(Node),
  -    case Fun1 of 
  -	{value, FunName} ->
  -	    case Mod1 of 
  -		{value,ModName} ->
  -		    case refac_syntax:type(Args) of 
  -			list ->
  -			    case refac_syntax:list_length(Args) of 
  -				Arity ->
  -				    Mod2 = refac_syntax:atom(TargetModName),
  -				    App = if length(Arguments) == 4 ->
  -						  refac_syntax:application(Operator, [N, Mod2, Fun, Args]);
  -					     true -> refac_syntax:application(Operator, [Mod2, Fun, Args])
  -					  end,
  -				    {refac_syntax:copy_pos(Node,(refac_syntax:copy_attrs(Node, App))), true};
  -				_ -> {Node, false}
  -			    end;
  -			nil -> if Arity==0 ->
  -				       Mod2 = refac_syntax:atom(TargetModName),
  -				       App = if length(Arguments) == 4 ->
  -						  refac_syntax:application(Operator, [N, Mod2, Fun, Args]);
  -					     true -> refac_syntax:application(Operator, [Mod2, Fun, Args])
  -					  end,
  -				       {refac_syntax:copy_pos(Node,(refac_syntax:copy_attrs(Node, App))), true};
  +			nil -> if Arity == 0 ->
  +				      Mod2 = refac_syntax:atom(TargetModName),
  +				      {refac_syntax:copy_pos(Node, refac_syntax:copy_attrs(Node,
  +											   refac_syntax:application(Operator, [Mod2, Fun, Args]))), true};
   				  true -> {Node, false}
   			       end;
   			_ -> Message(Pos),
   			     {Node, false}
  -		    end;
  -		{value, _}-> {Node, false};
  -		{error, _Reason} -> 
  -		    case refac_syntax:type(Args) of 
  -			list -> case refac_syntax:list_length(Args) of 
  -				    Arity -> Message(Pos),
  -					     {Node, false};
  -				    _ -> {Node, false}
  +		      end;
  +		  {value, _} -> {Node, false};
  +		  {error, _Reason} ->
  +		      case refac_syntax:type(Args) of
  +			list -> case refac_syntax:list_length(Args) of
  +				  Arity -> Message(Pos),
  +					   {Node, false};
  +				  _ -> {Node, false}
   				end;
   			_ -> Message(Pos),
   			     {Node, false}
  -		    end
  -	    end;
  -	{value, _} -> {Node, false};
  -	{error, _Reason} ->  
  -	    case Mod1 of 
  -		{value, ModName} ->
  -		    case refac_syntax:type(Args) of 
  -			list -> case refac_syntax:list_length(Args) of 
  -				    Arity -> Message(Pos),
  -					     {Node, false};
  -				    _ -> {Node, false}
  +		      end
  +		end;
  +	    {value, _} -> {Node, false};
  +	    {error, _Reason} ->
  +		case Mod1 of
  +		  {value, ModName} ->
  +		      case refac_syntax:type(Args) of
  +			list -> case refac_syntax:list_length(Args) of
  +				  Arity -> Message(Pos),
  +					   {Node, false};
  +				  _ -> {Node, false}
   				end;
   			_ -> Message(Pos),
   			     {Node, false}
  -		    end;
  -		{value, _} -> {Node, false};
  -		{error, _Reason} -> case refac_syntax:type(Args) of 
  -					list-> case refac_syntax:list_length(Args) of 
  -						   Arity -> Message(Pos),
  -							    {Node, false};
  -						   _ -> {Node, false}
  -					       end;
  -					_  -> Message(Pos),
  -					      {Node, false}
  -				    end
  -	    end
  +		      end;
  +		  {value, _} -> {Node, false};
  +		  {error, _Reason} -> case refac_syntax:type(Args) of
  +					list -> case refac_syntax:list_length(Args) of
  +						  Arity -> Message(Pos),
  +							   {Node, false};
  +						  _ -> {Node, false}
  +						end;
  +					_ -> Message(Pos),
  +					     {Node, false}
  +				      end
  +		end
  +	  end;
  +      _ -> {Node, false}
  +    end.
  +
  +transform_spawn_call(Node, {ModName, FunName, Arity}, TargetModName) ->
  +    Message = fun
  +		(Pos) -> ?wrangler_io("WARNING: function ***spawn*** is used at location({line, col}):~p, and wrangler "
  +				      "could not decide whether this site should be refactored, please check!!!\n",
  +				      [Pos])
  +	      end,
  +    Operator = refac_syntax:application_operator(Node),
  +    Arguments = refac_syntax:application_arguments(Node),
  +    [N, Mod, Fun, Args] = if length(Arguments) == 4 -> Arguments;
  +			     true -> [none] ++ Arguments
  +			  end,
  +    Mod1 = refac_util:try_evaluation([refac_syntax:revert(Mod)]),
  +    Fun1 = refac_util:try_evaluation([refac_syntax:revert(Fun)]),
  +    Pos = refac_syntax:get_pos(Node),
  +    case Fun1 of
  +      {value, FunName} ->
  +	  case Mod1 of
  +	    {value, ModName} ->
  +		case refac_syntax:type(Args) of
  +		  list ->
  +		      case refac_syntax:list_length(Args) of
  +			Arity ->
  +			    Mod2 = refac_syntax:atom(TargetModName),
  +			    App = if length(Arguments) == 4 ->
  +					 refac_syntax:application(Operator, [N, Mod2, Fun, Args]);
  +				     true -> refac_syntax:application(Operator, [Mod2, Fun, Args])
  +				  end,
  +			    {refac_syntax:copy_pos(Node, refac_syntax:copy_attrs(Node, App)), true};
  +			_ -> {Node, false}
  +		      end;
  +		  nil -> if Arity == 0 ->
  +				Mod2 = refac_syntax:atom(TargetModName),
  +				App = if length(Arguments) == 4 ->
  +					     refac_syntax:application(Operator, [N, Mod2, Fun, Args]);
  +					 true -> refac_syntax:application(Operator, [Mod2, Fun, Args])
  +				      end,
  +				{refac_syntax:copy_pos(Node, refac_syntax:copy_attrs(Node, App)), true};
  +			    true -> {Node, false}
  +			 end;
  +		  _ -> Message(Pos),
  +		       {Node, false}
  +		end;
  +	    {value, _} -> {Node, false};
  +	    {error, _Reason} ->
  +		case refac_syntax:type(Args) of
  +		  list -> case refac_syntax:list_length(Args) of
  +			    Arity -> Message(Pos),
  +				     {Node, false};
  +			    _ -> {Node, false}
  +			  end;
  +		  _ -> Message(Pos),
  +		       {Node, false}
  +		end
  +	  end;
  +      {value, _} -> {Node, false};
  +      {error, _Reason} ->
  +	  case Mod1 of
  +	    {value, ModName} ->
  +		case refac_syntax:type(Args) of
  +		  list -> case refac_syntax:list_length(Args) of
  +			    Arity -> Message(Pos),
  +				     {Node, false};
  +			    _ -> {Node, false}
  +			  end;
  +		  _ -> Message(Pos),
  +		       {Node, false}
  +		end;
  +	    {value, _} -> {Node, false};
  +	    {error, _Reason} -> case refac_syntax:type(Args) of
  +				  list -> case refac_syntax:list_length(Args) of
  +					    Arity -> Message(Pos),
  +						     {Node, false};
  +					    _ -> {Node, false}
  +					  end;
  +				  _ -> Message(Pos),
  +				       {Node, false}
  +				end
  +	  end
       end.
   
   get_fun_def_info(Node) ->
  
positive.code:       _ -> false
      end.
  
  
  
  comment(Txt) ->
  
negative.code: 		  _ -> {Node, false}
   	      end;
          _  -> {Node, false}
      end.
  
  
  %%=========================================================================
  