anchor.diff:  %%	`erl_parse' clauses.
   
   function(Name, Clauses) ->
  -    tree(function,
  -	 #function{name = update_ann({syntax_path, function_name}, Name), 
  -                   clauses = [update_ann({syntax_path, function_clause}, C)
  -                              ||C<-Clauses]}).
  +    case syntax_tools_vsn() >= "1.6.9" of 
  +        true ->
  +            tree(function,
  +                 #func{name = update_ann({syntax_path, function_name}, Name), 
  +                           clauses = [update_ann({syntax_path, function_clause}, C)
  +                                      ||C<-Clauses]});
  +        _ -> 
  +            tree(function,
  +                 #function{name = update_ann({syntax_path, function_name}, Name), 
  +                           clauses = [update_ann({syntax_path, function_clause}, C)
  +                                      ||C<-Clauses]})
  +    end.
   
   revert_function(Node) ->
       Node1 = remove_function_clause(Node),
  
positive.code: function_clauses(Node) ->
      case unwrap(Node) of
        {function, _, _, _, Clauses} -> Clauses;
        Node1 -> (data(Node1))#function.clauses
      end.
  %%=============================================
  %% Added by HL;
  
negative.code: %% @see is_form/1
  %% @see rule/2
  
  -record(function, {name, clauses}). %% to be back compatible; will be 
                                      %% removed when wrangler no longer 
                                      %% uses the erl_syntax module.
  
  -record(func, {name, clauses}).
  
  %% type(Node) = function
  %% data(Node) = #function{name :: Name, clauses :: Clauses}
  