anchor.diff:        %% We list literals and other common cases first.
         variable -> text(refac_syntax:variable_literal(Node));
         atom ->
  -	  Lit = refac_syntax:atom_literal(Node),
  -	  case hd(Lit) of
  -	    39 -> text("'" ++ atom_to_list(refac_syntax:atom_value(Node)) ++ "'");
  +	    Lit = refac_syntax:atom_literal(Node),
  +	    case hd(Lit) of
  +		39 -> text("'" ++ atom_to_list(refac_syntax:atom_value(Node)) ++ "'");
   	    _ -> text(Lit)
   	  end;
   	integer -> text(refac_syntax:integer_literal(Node));
  
positive.code:     lay_elems_1(Fun, Ts, [[D]], ELn);
  lay_elems_1(Fun, [{D, {SLn, ELn}}| Ts], [H| T], LastLn) ->
      case SLn == 0 orelse LastLn == 0 orelse SLn < LastLn of
        true -> lay_elems_1(Fun, Ts, [[D], H| T], ELn);
        false ->
  	  case SLn - LastLn of
  	    0 -> lay_elems_1(Fun, Ts, [H ++ [D]| T], ELn);
  	    1 ->
  		lay_elems_1(Fun, Ts, [[above(horizontal(H), D)]| T], ELn);
  	    _ ->
  		lay_elems_1(Fun, Ts, [[above(horizontal(H), above(text(""), D))]| T], ELn)
  	  end
      end.
                      %%lay_elems_1(Fun, Ts,[[D],H| T],ELn)
  
  nil() -> text("").
  
  get_prev_keyword_line_num(FormToks, StartPos, KeyWord)->
  
negative.code: 	  {PrecL, Prec} = func_prec(),
  	  D = lay(refac_syntax:application_operator(Node), set_prec(Ctxt, PrecL)),
  	  Args = refac_syntax:application_arguments(Node),			   
  	  Sep = get_separator(Args, Ctxt#ctxt.tokens, ","),
  	  As = seq(Args, floating(text(Sep)), reset_prec(Ctxt), fun lay/2),
  	  Op = refac_syntax:application_operator(Node),
  	  D1 = case Args of
  		 [] ->
  		     beside(D, beside(text("("), text(")")));
  