anchor.diff:              Op =wrangler_syntax:application_operator(Node),
               Args = wrangler_syntax:application_arguments(Node),
               D = lay(Op,reset_check_bracket(set_prec(Ctxt, PrecL))),
  -            Sep = get_separator(Args, Ctxt, ","),
  +            {Sep,_} = get_separator(Args, Ctxt, ","),
   	    Ctxt1 =case length(Args)==1 andalso 
                          lists:member(wrangler_syntax:type(hd(Args)),
                                       [macro, infix_expr]) of
  
positive.code:                         Pad = PrefixStartCol-StartCol-1,
                          case Pad>0 of
                              true ->
                                  %% beside(text("["), beside(text(spaces(Pad)), D1));
                                  beside(text("["), D1);
                              false ->
                                  beside(text("["), D1)
  
negative.code: 		    D =lay(N, Ctxt1),
  		    beside(floating(text("-")), beside(D, floating(text("."))));
  		Args ->
                      {Sep,_} = get_separator(Args, Ctxt1, ","),
                      D2= case wrangler_syntax:atom_value(N) of 
                              spec ->
                                  case spec_need_paren(Ctxt1#ctxt.tokens) of 
  