anchor.diff:  -author('Carlos Gonzalez <carlosj.gf@gmail.com>').
   
   -export([expression/1, getter/2, getter_args/4, fun_expr/4, call_expr/4, callback_expr/3]).
  --export([case_expr/5, case_expr_ok/5, compile/2, write/3]).
  +-export([case_expr/5, case_expr_ok/5, export_attr/1, compile/2, do_compile/3, write/3]).
   -export([get_funs/1]).
  +-export([forms_find_attribute/2, forms_add_attributes/2, forms_get_attributes/1,
  +         forms_find_exported/1, forms_get_funs/1, forms_add_funs/2, forms_print/1]).
   
   -include_lib("syntax_tools/include/merl.hrl").
   
  
positive.code:     end.
  
  
  %% @doc Writes a generated tree as a standard erlang file
  -spec write(atom(), [erl_syntax:syntaxTree()], string()) ->
      ok | {error, term()}.
  
  write(Mod, Tree, BasePath) ->
      Path = filename:join(BasePath, atom_to_list(Mod)++".erl"),
      Content = list_to_binary(
          [io_lib:format("~s\n\n", [erl_prettypr:format(S)]) || S <-Tree]),
      file:write_file(Path, Content).
  
negative.code:                 [erl_syntax:variable('Other')])
          ]).
  
  
  %% @doc
  export_attr(List) ->
      erl_syntax:attribute(
          erl_syntax:atom(export),
          [erl_syntax:list(
              [
                  erl_syntax:arity_qualifier(
                      erl_syntax:atom(Name), erl_syntax:integer(Arity))
                  || {Name, Arity} <- List
              ]
          )]).
  
  
  %% @doc Compiles a syntaxTree into a module
  