anchor.diff:  %%
   %% @end
   %% =====================================================================
  -create_new_application(AnnAST, Tree, Operator, NewArgs, RecName, FieldList)->
  -  case NewArgs of 
  -    {not_tuple, First, Last, Tuple} -> 
  -      case analyze_tuple(AnnAST, Tuple, length(FieldList)) of
  -        false -> {Tree, false};
  -        true -> 
  -          TupleElements = get_tuple_elements(Tuple, 1, [],length(FieldList)),
  -          NewRecFields = lists:map(fun({FName, Value})->
  -                                 refac_syntax:record_field(
  -                                           refac_syntax:atom(FName),Value)
  -                               end, lists:zip(FieldList, TupleElements)),
  -          NewRecName = refac_syntax:atom(RecName),
  -          NewRec = [refac_syntax:record_expr(none, NewRecName, NewRecFields)],
  -          NewAppArg = First ++ NewRec ++ Last,
  -          {refac_syntax:copy_attrs(Tree, 
  -           refac_syntax:application(Operator, NewAppArg)), false};
  -	unknown ->
  -          create_case(Tree, First, Last, Tuple, RecName, FieldList, Operator)
  -      end;
  -    _ ->
  -       {refac_syntax:copy_attrs(Tree, 
  -        refac_syntax:application(Operator, NewArgs)), false}
  -  end.
  +create_new_application(AnnAST, Tree, Operator, NewArgs, RecName, FieldList) ->
  +    case NewArgs of
  +      {not_tuple, First, Last, Tuple} ->
  +	  case analyze_tuple(AnnAST, Tuple, length(FieldList)) of
  +	    false -> {Tree, false};
  +	    true ->
  +		TupleElements = get_tuple_elements(Tuple, 1, [], length(FieldList)),
  +		
  +		NewRec =  mk_record_expr(RecName, FieldList, TupleElements),
  +		NewAppArg = First ++ NewRec ++ Last,
  +		{refac_syntax:copy_attrs(Tree,
  +					 refac_syntax:application(Operator, NewAppArg)), false};
  +	    unknown ->
  +		create_case(Tree, First, Last, Tuple, RecName, FieldList, Operator)
  +	  end;
  +      _ ->
  +	  {refac_syntax:copy_attrs(Tree,
  +				   refac_syntax:application(Operator, NewArgs)), false}
  +    end.
   
   %% =====================================================================
   %% @spec get_tuple_elements(Tuple::syntaxtree(), Number::integer(),
  
positive.code:     _ -> {Node, false}
    end.
  
  
negative.code: %% 
  %% @end
  %% =====================================================================
  create_new_patterns(Patterns, N, RecName, FieldList) ->
      Last = lists:nthtail(N, Patterns),
      First = Patterns -- lists:nthtail(N - 1, Patterns),
      [Tuple] = (Patterns -- Last) -- First,
      case refac_syntax:type(Tuple) == tuple andalso
  	   length(refac_syntax:tuple_elements(Tuple)) == length(FieldList)
  	of
        true ->
  	  TupleElements = refac_syntax:tuple_elements(Tuple),
  	  
  	  NewRec =  mk_record_expr(RecName, FieldList, TupleElements),
  	  First ++ NewRec ++ Last;
        false -> {not_tuple, First, Last, Tuple}
      end.
  
  
  %% =====================================================================
  