anchor.diff:      end;
   seq_pr([],_,_,_) -> [].
   
  -vertical_concat(Es, FileFmt) -> vertical_concat(Es, FileFmt, "").
  -
  -
  -vertical_concat([], _FileFormat, Acc) -> Acc;
  -vertical_concat([{PPStr,Form}| T], FileFormat, Acc) ->
  +vertical_concat(Forms, FileFmt, Options) -> 
  +    vertical_concat(Forms, FileFmt, Options,"").
  +
  +vertical_concat([], _FileFormat, _Options, Acc) -> 
  +    Acc;
  +vertical_concat([Form|T], FileFormat, Options, Acc) ->
       UseOriginalCode = form_not_changed(Form),
       Delimitor = case FileFormat of
   		    dos -> "\r\n";
  
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:     append_clause_body(B,D,floating(R),Ctxt, SameLine).
  
  append_clause_body(B,D,S,Ctxt, _SameLine={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));
  