anchor.diff:  	  end;
         conjunction -> %% done;
   	  Body = refac_syntax:conjunction_body(Node),
  -	  Sep = get_separator(Body, Ctxt#ctxt.tokens, ", "),
  +	  Sep = get_separator(Body, Ctxt#ctxt.tokens, ","),
   	  Es = seq(Body, floating(text(Sep)), reset_prec(Ctxt), fun lay/2),
   	  lay_elems(fun refac_prettypr_0:par/1, Es, refac_syntax:conjunction_body(Node));
         disjunction -> %% done;
  
positive.code:       _ -> D
      end.
  
  lay_qualified_name([S| Ss1] = Ss,Ctxt) ->
      case refac_syntax:type(S) of
        atom ->
  
negative.code: 
  get_start_line(Node) ->
      PreComs = refac_syntax:get_precomments(Node),
      {{L, _C}, _} = get_start_end_loc(Node),
      case PreComs of
  	[] -> L;
  	_ -> element(1, refac_syntax:get_pos(hd(PreComs)))
      end.
  
  get_end_line(Node) ->
      PostComs = refac_syntax:get_postcomments(Node),
      {_, {L, _C}} = get_start_end_loc(Node),
      case PostComs of
  	[] -> L;
        _ -> LastCom = lists:last(PostComs),
  	   LastComText = refac_syntax:comment_text(LastCom),
  	   element(1, refac_syntax:get_pos(LastCom)) +
  	       length(LastComText) - 1
      end.
  
  get_start_end_loc(Node) ->	     
      {Starts, Ends} = 
  	case is_list(Node) of 
  	    true ->
  		lists:unzip([refac_misc:get_start_end_loc(N)||N<-Node]);
  	    false ->
  		lists:unzip([refac_misc:get_start_end_loc(N)||N<-[Node]])
  	end,
      {Starts1, Ends1} = {lists:usort(Starts)--[{0,0}], lists:usort(Ends)--[{0,0}]},
      Start=case Starts1==[] of 
  	      true -> {0,0};
  	      false ->
  		  hd(Starts1)
  	  end,
      End = case Ends1==[] of 
  	      true -> {0,0};
  	      false ->
  		  lists:last(Ends1)
  	  end,
      {Start, End}.
   
  horizontal([D]) -> D;
  horizontal([D| Ds]) -> beside(beside(D, nil()),horizontal(Ds));
  horizontal([]) -> [].
  