anchor.diff:        block_expr -> %% done;
   	  Ctxt1 = reset_prec(Ctxt),
   	  Body = refac_syntax:block_expr_body(Node),
  -	  Es = seq(Body, floating(text(",")), Ctxt1, fun lay/2),
  +	  Es = seq(Body, floating(text(", ")), Ctxt1, fun lay/2),
   	  sep([text("begin"), nest(Ctxt1#ctxt.sub_indent, lay_elems(fun refac_prettypr_0:sep/1, Es, Body)), text("end")]);
         catch_expr ->  %% done;
   	  {Prec, PrecR} = preop_prec('catch'),
  
positive.code: 	  end;
        nil -> text("[]");
        tuple -> %% done;
  	  Es = seq(refac_syntax:tuple_elements(Node), floating(text(",")), reset_prec(Ctxt), fun lay/2),
  	  beside(floating(text("{")),
  		 beside(lay_elems(fun refac_prettypr_0:par/1, Es, refac_syntax:tuple_elements(Node)), floating(text("}"))));
        list ->   %% done;
  	  Ctxt1 = reset_prec(Ctxt),
  	  Node1 = refac_syntax:compact_list(Node),
  	  PrefixElems = refac_syntax:list_prefix(Node1),
  	  D0 = seq(PrefixElems, floating(text(",")), Ctxt1, fun lay/2),
  	  D1 = lay_elems(fun refac_prettypr_0:par/1, D0, PrefixElems),
  	  D = case refac_syntax:list_suffix(Node1) of
  		none -> beside(D1, floating(text("]")));
  
negative.code:       list_comp ->  %% done;
  	  Ctxt1 = reset_prec(Ctxt),
  	  D1 = lay(refac_syntax:list_comp_template(Node), Ctxt1),
  	  Es = seq(refac_syntax:list_comp_body(Node), floating(text(", ")), Ctxt1, fun lay/2),
  	  D2 = lay_elems(fun refac_prettypr_0:par/1, Es, refac_syntax:list_comp_body(Node)),
  	  D1EndLn = get_end_line(refac_syntax:list_comp_template(Node)),
  	  D2StartLn = get_start_line(hd(refac_syntax:list_comp_body(Node))),
  