anchor.diff:  	 {qatom, _, V} -> S=atom_to_list(V),
   			  concat_toks(Ts, [S|Acc]);
   	 {string, _, V} -> concat_toks(Ts,["\"", V, "\""|Acc]);
  +	 {char, _, V} when is_atom(V)->concat_toks(Ts,[atom_to_list(V)|Acc]);
   	 {char, _, V} when is_integer(V) and (V =< 127)-> concat_toks(Ts,[io_lib:write_char(V)|Acc]);
   	 {char, _, V} when is_integer(V) ->
   	     {ok, [Num], _} = io_lib:fread("~u", integer_to_list(V)),
   	     [Str] = io_lib:fwrite("~.8B", [Num]),
   	     S = "$\\"++Str,
  -	     concat_toks(Ts, [S|Acc]); 
  +	      concat_toks(Ts, [S|Acc]); 
   	 {float, _, V} -> concat_toks(Ts,[io_lib:write(V)|Acc]);
  -	 {_, _, V} -> concat_toks(Ts, [V|Acc]);
  +     	 {_, _, V} -> concat_toks(Ts, [V|Acc]);
   	 {dot, _} ->concat_toks(Ts, ['.'|Acc]);
  -	 {V, _} -> 
  +      	 {V, _} -> 
   	     concat_toks(Ts, [V|Acc])
        end.
  
positive.code: 	    P1 = add_category(P, pattern),
  	    B1 = add_category(B, expression),
  	    Node1=rewrite(Node, refac_syntax:match_expr(P1, B1)),
  	    {Node1, true};		       
  	generator ->
  	    P = refac_syntax:generator_pattern(Node),
  	    B = refac_syntax:generator_body(Node),
  
negative.code:     StartPos =start_pos(F),
      {Ts1,Ts2} = lists:splitwith(
  		  fun(T) ->
  			  token_loc(T)>=StartPos andalso 
  			   is_whitespace_or_comment(T)
  		  end, Toks),
      {Ts21, Ts22} = lists:splitwith(fun(T) ->
  					   is_whitespace(T)
  