anchor.diff:  
   
   lay_1(Node,Ctxt) ->
  -    case erl_syntax:has_comments(Node) of
  +    case refac_syntax:has_comments(Node) of
         true ->
   	  D1 = lay_2(Node,Ctxt),
  -	  D2 = lay_postcomments(erl_syntax:get_postcomments(Node),D1),
  -	  lay_precomments(erl_syntax:get_precomments(Node),D2);
  +	  D2 = lay_postcomments(refac_syntax:get_postcomments(Node),D1),
  +	  lay_precomments(refac_syntax:get_precomments(Node),D2);
         false -> lay_2(Node,Ctxt)
       end.
   
  
positive.code: 	  %% a period. If the arguments is `none', we only output the
  	  %% attribute name, without following parentheses.
  	  Ctxt1 = reset_prec(Ctxt),
  	  N = erl_syntax:attribute_name(Node),
  	  D = case erl_syntax:attribute_arguments(Node) of
  		none -> lay(N,Ctxt1);
  		Args ->
  		    As = seq(Args,floating(text(",")),Ctxt1,fun lay/2),
  
negative.code: lay_error_info(T,Ctxt) -> lay_concrete(T,Ctxt).
  
  lay_concrete(T,Ctxt) ->
      lay(refac_syntax:abstract(T),Ctxt).
  
  seq([H| T],Separator,Ctxt,Fun) ->
      case T of
  