anchor.diff:  		_ ->
   		    Hd = refac_util:ghead("do_add_range:binary", Fs),
   		    Last = refac_util:glast("do_add_range:binary", Fs),
  -		    {S1, _E1} = get_range(Hd),
  -		    {_S2, E2} = get_range(Last),
  -		    S11 = extend_forwards(Toks, S1, "<<"),
  -		    E21 = extend_backwards(Toks, E2, ">>"),
  -		    refac_syntax:add_ann({range, {S11, E21}}, Node)
  +		    calc_and_add_range_to_node_1(Node, Toks, Hd, Last, "<<", ">>")
   	    end;
   	binary_field ->
   	    Body = refac_syntax:binary_field_body(Node),
  
positive.code:     {_S2,E2} = get_range(Field),
      refac_syntax:add_ann({range,{S1,E2}},Node).
  
  get_range(Node) ->
       As = refac_syntax:get_ann(Node),
       case lists:keysearch(range, 1, As) of
  
negative.code: 		 end,
  	    Node1 =rewrite(Node, refac_syntax:clause(P1, G1, Body1)),
  	    {Node1, true};
  	application ->
  	    Op = refac_syntax:application_operator(Node),
  	    Args = refac_syntax:application_arguments(Node),
  	    Op1 = add_category(Op, C),
  	    Op2 = refac_util:update_ann(Op1,{category, application_op}),
  	    Args1 = add_category(Args, C),
  	    Node1 = rewrite(Node, refac_syntax:application(Op2, Args1)),
  	    {refac_syntax:add_ann({category, C}, Node1), true};
  	match_expr ->
  	    P = refac_syntax:match_expr_pattern(Node),
  	    B = refac_syntax:match_expr_body(Node),
  