anchor.diff:      append_clause_body(B,D,floating(R),Ctxt, SameLine).
   
   append_clause_body(B,D,S,Ctxt, _SameLine={BodyStartLn, HeadLastLn}) ->
  -    refac_io:format("SameLine:\n~p\n", [{BodyStartLn, HeadLastLn}]),
       case BodyStartLn-HeadLastLn of 
   	0 -> beside(beside(D,S), nest(Ctxt#ctxt.break_indent,B));
   	1 -> above(beside(D,S),nest(Ctxt#ctxt.break_indent,B));
  
positive.code: 	{prec = 0,sub_indent = 2,break_indent = 4,
  	 clause = undefined,hook = ?NOHOOK,paper = ?PAPER,
  	 ribbon = ?RIBBON,user = ?NOUSER,
  	 format = unknown}).
  
  %% Start of added by HL
  
negative.code: 
  nil() -> text(" ").
  
  get_prev_keyword_line_num(FormToks, StartPos, KeyWord)->
      Ts1 = lists:takewhile(
  	    fun(T) ->
  		    token_loc(T)=<StartPos
  	    end, FormToks),
      Ts2=lists:dropwhile(fun(T)->
  				element(1, T)/=KeyWord
  			end, lists:reverse(Ts1)),
      case Ts2 of 
  	[] ->
  	    0;
  	[T1|_] ->
  	    element(1, token_loc(T1))
      end.
  
  get_post_keyword_line_num(FormToks, EndPos, KeyWord)->
      Ts1 = lists:dropwhile(
  	    fun(T) ->
  		    token_loc(T)=<EndPos
  	    end, FormToks),
      Ts2=lists:dropwhile(fun(T)->
  				element(1, T)/=KeyWord
  			end, Ts1),
      case Ts2 of 
  	[] ->
  	    0;
  	[T1|_] ->
  	    element(1, token_loc(T1))
      end.
  	    
  token_loc(T) ->
      case T of
        {_, L, _V} -> L;
        {_, L1} -> L1
      end.
  
  