anchor.diff:  	  {S1, E1} = get_range(O),
   	  {S3, E3} = case Args of
   		       [] -> {S1, E1};
  -		       _ -> La = glast("refac_util:do_add_range, application", Args), {_S2, E2} = get_range(La), {S1, E2}
  +		       _ -> La = glast("refac_util:do_add_range, application", Args), 
  +			    {_S2, E2} = get_range(La), 
  +			    {S1, E2}
   		     end,
  -	  E31 = extend_backwards(Toks, E3, ')'),
  +	    E31 = extend_backwards(Toks, E3, ')'),
   	  refac_syntax:add_ann({range, {S3, E31}}, Node);
         case_expr ->
   	  A = refac_syntax:case_expr_argument(Node),
  
positive.code: %% @spec get_bound_vars(Node::syntaxTree())-> [{atom(),pos()}]
  %% @doc Return the bound variables of an AST node.
  
  -spec(get_bound_vars(Node::[syntaxTree()]|syntaxTree())-> [{atom(),pos()}]).
  get_bound_vars(Nodes) when is_list(Nodes)->
      lists:flatmap(fun(Node) ->get_bound_vars(Node) end, Nodes);			   
  get_bound_vars(Node) ->
      get_bound_vars_1(refac_syntax:get_ann(Node)).
  
  get_bound_vars_1([{bound, B} | _Bs]) -> B;
  get_bound_vars_1([_ | Bs]) -> get_bound_vars_1(Bs);
  get_bound_vars_1([]) -> [].
  
  
  %% =====================================================================
  %% @spec get_env_vars(Node::syntaxTree())-> [atom()]
  
negative.code: 				    token_loc(T) =< EndLoc end, Toks),
      Toks2 = lists:takewhile(fun(T) ->
  				    token_loc(T) < StartLoc1 end, Toks1),
      case lists:any(fun(T) -> 
  			   not(lists:member(token_val(T), [',','(',')']) orelse
  			      is_whitespace_or_comment(T))
  		   end, Toks2) of 
  	false ->
  	    [E1]++ filter_syntax_units_via_toks_2(Toks, [E2|Es]);
  	_  -> [E1]
  