anchor.diff:        tuple ->
   	  [analyze_record_field(F)
   	   || F <- refac_syntax:tuple_elements(Node)];
  -      _ -> throw(syntax_error)
  +	_ -> {Ln, _} = refac_syntax:get_pos(Node),
  +	     throw("Unrecognised attribute in line " ++ integer_to_list(Ln))
       end.
   
   %% =====================================================================
  
positive.code: 
  analyze_form(Node) ->
      case refac_syntax:type(Node) of
        attribute -> {attribute, analyze_attribute(Node)};
        function -> {function, analyze_function(Node)};
        rule -> {rule, analyze_rule(Node)};
        error_marker ->
  	  {error_marker, refac_syntax:error_marker_info(Node)};
        warning_marker ->
  	  {warning_marker, refac_syntax:warning_marker_info(Node)};
        _ ->
  	  case refac_syntax:is_form(Node) of
  	    true -> refac_syntax:type(Node);
  	    false -> 
  		  throw(syntax_error)
  	  end
      end.
  
  %% =====================================================================
  
negative.code: 		F = refac_syntax:arity_qualifier_body(Node),
  		F1 = analyze_function_name(F),
  		append_arity(refac_syntax:integer_value(A), F1);
  	      _ ->{Ln, _} = refac_syntax:get_pos(Node),
  		  throw("Unrecognised arity_qualifier in line " ++ integer_to_list(Ln))
  	  end;
        module_qualifier ->
  	  M = refac_syntax:module_qualifier_argument(Node),
  