anchor.diff:      Tree1 = rewrite(Tree, refac_syntax:try_expr(Body1, Cs1, Handlers1, After1)),
       Bound = ordsets:union(ordsets:union(ordsets:union(Bound1, Bound2), Bound3),Bound4),
       Free  = ordsets:union(ordsets:union(ordsets:union(Free1, Free2), Free3),Free4),
  -    {ann_bindings(Tree1, Env, Bound, Free), Bound,Free}.    %% TODO: NEED TO CHANGE THIS BACK.
  -    %% erlang:error({not_implemented, try_expr}).
  +    {ann_bindings(Tree1, Env, Bound, Free), Bound,Free}.    
   
   vann_receive_expr(Tree, Env, Ms, VI) ->
       %% The timeout action is treated as an extra clause.
  
positive.code: 	block_expr -> vann_block_expr(Tree, Env, Ms, VI);
  	macro -> vann_macro(Tree, Env, Ms, VI);
  	%% Added by HL, begin.
  	attribute -> case  refac_syntax:atom_value(refac_syntax:attribute_name(Tree)) of 
  			 define -> vann_define(Tree,Env, Ms, VI);
  			 ifdef -> {Tree, [], []};  
  			 inndef ->{Tree, [], []};
  			 undef -> {Tree, [], []};
  			 _ -> F = vann_list_join(Env, Ms, VI),
  			      {Tree1, {Bound, Free}} = mapfold_subtrees(F, {[],[]}, Tree),
  			      {ann_bindings(Tree1, Env, Bound, Free), Bound, Free}
  		     end;
  	%% Added by HL, end.
  	_Type ->
  	    F = vann_list_join(Env, Ms, VI),
  
negative.code: 	 new_variable_name/1, new_variable_name/2,
  	 new_variable_names/2, new_variable_names/3,
  	 strip_comments/1, to_comment/1, to_comment/2,
  	 to_comment/3, variables/1, vann_clause/4]).
  
  %% =====================================================================
  %% @spec map(Function, Tree::syntaxTree()) -> syntaxTree()
  